Язык Паскаль найдите сумму квадратов всех целых чисел от 1 до 15
123
ОТВЕТЫ
var
i: byte;
sum: integer;
begin
sum := 0;
for i := 1 to 15 do
begin
sum := sum + sqr(i);
end;
writeln(Сумма квадратов чисел от 1 до 15 = , sum);
readln;
end.
i: byte;
sum: integer;
begin
sum := 0;
for i := 1 to 15 do
begin
sum := sum + sqr(i);
end;
writeln(Сумма квадратов чисел от 1 до 15 = , sum);
readln;
end.
7
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Zamopalom
Для хранения изображения экрана монитора, работающего при разрешении 1366×768 ...
2019-01-31 03:06:51
Lavemas
Для какого из приведённых значений числа X истинно высказывание: ...
2019-01-31 03:02:08
Morlurim
Какое значение будет принимать переменная X, после выполнения фрагмента ...
2019-01-31 03:01:46
Бекарюков
ЛЮДИ СРОЧНО! Я отключила кабель веб.камеры из процессора и ...
2019-01-31 02:59:28