Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Помогите пожалуйста

Помогите пожалуйста - вопрос №2825931

изображение из вопроса
КатяЗолотой
01.04.18
Учеба и наука / Информатика
3 ответа

Ответы

Рейтинг: 121 998
6-й в Учебе и науке
Тут есть разные варианты циклов, я Вам сделала самый простой, через цикл for

Program abc;
var n,a:integer;
begin
a:=1;
for n:=1 to 5 do begin
a:=a*n;
writeln('a[',n,']=',a);     (вот эту строчку можно не писать, я ее вставила для того, чтобы вы заполнили таблицу)
end;
writeln('a=',a);
readln;
end.

Результат выполнения 
a[1]=1
a[2]=2
a[3]=6
a[4]=24
a[5]=120
a=120
01.04.18
Рейтинг: 121 998
6-й в Учебе и науке
Вот другая версия. через другой оператор
Program abc;
var n,a:integer;
begin
n:=1;
a:= 1; { Присваиваем a значение 1 }
while n <= 5 do {Как только n станет больше 5}
begin {Открываем операторные скобки}
a:=a*n;
writeln('a[',n,']=',a);
Inc(n); {увеличиваем т на один.}
end; 
writeln('a=',a);
end.


Не забываем выбирать лучший ответ :))
01.04.18
изображение из вопроса
program zadacha_1_a;
var a,n:integer;
begin
  a:=1;
  for n:=1 to 5 do a:=a*n;
write('результат a=',a);
end.
01.04.18

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее