Предмет: Информатика, автор: Чудейко

с клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число.найди сумму квадратов однозначных чисел (написать программу на языке паслкаль)

Ответы

Автор ответа: goltgolt
0
label m1;var a:array[1..100]of integer; i,b,n:integer; c:real;beginfor  i:=1 to 100 dobeginread(a[i]);if a[i]>9 then goto m1;n:=i;end;m1:for i:=1to n dobeginb:=sqr(a[i]);writeln('Квадрат',' ',i,' ','числа=',' ',b);end;end.
Похожие вопросы
Предмет: История, автор: Аноним