Напишите процедуру которая принимает параметр натуральное число n

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Procedure fib;
var n, i, a, b: integer;
begin
read(n);
b := 1;
for i := 2 to n do begin
b := a + b;
a := b — a
end;
if n = 0 then write(0)
else write(b);
end;

НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Кириллова Полина Владиславовна — автор студенческих работ, заработанная сумма за прошлый месяц 57 486 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию

ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!

Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.

Деятельность компании в цифрах:

Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.

Ответы на вопросы — в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.

Полезные статьи — раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.

Красивые высказывания — цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.

Площадка Учись.Ru разработана специально для студентов и школьников. Здесь можно найти ответы на вопросы по гуманитарным, техническим, естественным, общественным, прикладным и прочим наукам. Если же ответ не удается найти, то можно задать свой вопрос экспертам. С нами сотрудничают преподаватели школ, колледжей, университетов, которые с радостью помогут вам. Помощь студентам и школьникам оказывается круглосуточно. С Учись.Ru обучение станет в несколько раз проще, так как здесь можно не только получить ответ на свой вопрос, но расширить свои знания изучая ответы экспертов по различным направлениям науки.

СРОЧНО!напишите процедуру,которая принимает параметр-натуральное число N и выводит на экран квадрат из звездочек со стороной N

procedure wr( ch: char; c: integer );
var i: integer;
begin for i := 1 to c do write(ch); end;
procedure square( n: integer );
var i: integer;
begin wr( ‘*’, n ); writeln;
for i := 2 to n-1 do begin write( ‘*’ ); wr( ‘ ‘ ); writeln( ‘*’ ); end;
wr( ‘*’, n ); writeln; end;

program n_1; var n: integer; procedure lol(n: integer); var i,k: integer; begin i:=n; while i>0 do begin k:=n; while k>0 do begin write(‘*’); k:=k-1; end; i:=i-1; WRITELN; end; end; begin writeln(‘введите число’); read(n); lol(n); end.

Другие вопросы из категории

памяти этого компьютера ( на странице размещается 40 строк по 60 символов в каждой строке ) ? Какой была бы высота такой стопки страниц, если высота из 100 страниц 1 см?

Читайте также

вводит натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.

2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат

Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.

кратных числу 3.

2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива