1. Информатика
  2. написать программу в паскале:

написать программу в паскале: посчитать числа в квадрате от 1 до n

Alina12345611109 Alina12345611109    3   10.12.2021 23:35    0

Ответы
dima1019 dima1019  30.01.2022 22:33

Объяснение:

program Num1;

var i, s, n : integer;

begin

  write('Последнее число n = ');  

  readln(n);

  s:= 0;

  for i:=1 to n do s:= s + i*i;

  writeln('Сумма квадратов всех чисел = ', s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
кируськаномер1 кируськаномер1  21.04.2020 16:20
8 КЛАСС Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 13); (14, 2); (1, 12); (11, 12); (–14, –14); (–11,...
artemlykov2000 artemlykov2000  21.04.2020 16:20
Запиши программу на языке Паскаль. var i,n:word; begin write( n= ); readln(n); for i:=1 to n do begin write(i, ); end; readln; end. На экране =3 1)0 2)9 3)3 4) 123...
kotizm kotizm  21.04.2020 16:19
С ИНФОРМАТИКОЙ Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 2); (11, 2); (1, 12); (11, 12); (–11, –12);...
snoopy201 snoopy201  11.05.2020 22:54
Информатика.задача.Изменив построенную модель роста и убывания, решите следующую задачу: «На пищевом комбинате в установку по производству дрожжей заложена 1 т дрожжевой массы. При...
polinkaa777 polinkaa777  11.05.2020 22:54
Определите тип алгоритма для указанных команд...
Marksensei Marksensei  11.05.2020 22:54
Каждую задачу оформить в виде программы и блок-схемы в тетради. 1)Определить, делится ли целое число Х на 5 и не делятся на 7, 13, 17 и 19. 2) Для любого введенного значения X определите...
gevochki gevochki  11.05.2020 22:54
Особенности использования цикла с постусловием....
kucharin kucharin  16.04.2020 22:01
1. Вычислить радиус окружности, зная длину окружности. Написать программу в паскале. с=31.4000 2. Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам...
анна2247 анна2247  10.07.2019 07:20
Дано трехзначное число. найдите сумму его цифр. входные данные вводится целое положительное число. гарантируется, что оно соответствует условию . выходные данные выведите ответ на...
AbiloWa AbiloWa  10.07.2019 07:20
Вычислите скорость вращения дисков rpm,если число секторов на дорожке srt равно 170,скорость передачи данных жесткого диска mdtr составляет 1024 мбайт/с,число байтов в секторе -1024....

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