Сумму квадратов всех целых чисел от а до 10.значение а вводится с клавиатуры.предусмотрите проверку корректности ввода (а< 10)

Ayashka11 Ayashka11    2   13.07.2019 19:10    2

Ответы
Atedoz Atedoz  20.09.2020 07:52
Var i,summ,a:integer;
begin
read(a);
for i:=a to 10 do 
summ:=summ+i*i;
write(summ);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика