1. Информатика
  2. Написать программы суммирования

Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (repeat..until, while..do, for..to). найти среднее арифметическое этих чисел.

alecsYouTube alecsYouTube    2   26.06.2019 16:50    3

Ответы
bigofficerjor bigofficerjor  21.07.2020 12:27
Var sum,i:integer;
sa:real;
begin
i:=0;
sum:=0;
for i:=1 to 100 do
sum:=sum+i;
writeln(sum);
sa:=sum/i;
writeln(sa:1:2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ааа511 ааа511  16.12.2019 13:59
Функция ультрозвукового датчика...
dasausakova526 dasausakova526  16.12.2019 13:59
Составьте таблицу истинности...
zentex zentex  16.12.2019 13:57
Пацаны, девчёнки го ответ мы же все братья друг другу)) дайте полные развернутые ответы на вопросы. какие системы программирования вам известны? опишите их назначение....
yanemykina2014 yanemykina2014  16.12.2019 13:56
C++, ! описать функцию calc(a,b,op) вещественного типа, выполняющую над ненулевыми вещественными числами a и b одну из арифметических операций и возвращающую ее результат....
uglyfrosha uglyfrosha  16.12.2019 13:55
Построить таблицу истинности: f=x& ¬(х& y)v¬yvx​...
nastyaivanko09 nastyaivanko09  26.02.2022 00:29
Выберите правильный ответ....
Хорошистикун Хорошистикун  26.02.2022 00:36
Разместите на форме две кнопки (Button) и одно поле ввода (TextBox). Сделайте на кнопках следующие надписи: «заполнить», «очистить». Создайте обработчики события нажатия...
timoshaisaev timoshaisaev  26.02.2022 00:42
, надо сделать графики по информатике в Word тут нужно просто это сделать в Ворде точь в точь как на картинке...
Руслана5999226 Руслана5999226  05.10.2019 20:01
Запишите числа в экспоненциальной форме с нормализованной мантисой 341,85...
zeralskaya zeralskaya  08.06.2019 13:40
Найти и исправить ошибки в программе. 4-1 proram z; var n,m: char; beginwrite(n - ); readln(m)m: =1; while sqr(m) =n do m: =m+1; writeln(m); end 4-2program д; beginvar...

Популярные вопросы