Составьте программу, которая вычисляет произведение натуральных чисел от 5 до 10 и выводит на экран результат (ИСПОЛЬЗОВАТЬ ТОЛЬКО ЦИКЛ while)
107
ОТВЕТЫ
Var
i, ans: integer;
Begin
i:= 5;
ans:= 1;
While i lt;= 10 do Begin
ans:= i*ans;
i:= i + 1;
end;
Writeln(ans);
end.
i, ans: integer;
Begin
i:= 5;
ans:= 1;
While i lt;= 10 do Begin
ans:= i*ans;
i:= i + 1;
end;
Writeln(ans);
end.
121
Отв. дан
Shargas
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Bann
1). От каких характеристик компьютера зависит его производительность? 2)Информационный ...
2019-02-01 05:49:08
Жемчужников
Определит, поместится ли на диск книга, набранная на компьютере, ...
2019-02-01 05:48:46
Евтихий
Для уборки используется K комбайнов производительностью A(на/час) и D ...
2019-02-01 05:44:49
Tevelron
СРОЧНО!!!!! ДАЮ 30 БАЛЛОВ!!!!! с++ Из файла «in.txt» вводятся ...
2019-02-01 05:43:43