Предмет: Информатика,
автор: Чудейко
с клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число.найди сумму квадратов однозначных чисел (написать программу на языке паслкаль)
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Физкультура и спорт,
автор: stepanseliverstov200
Предмет: История,
автор: Аноним
Предмет: География,
автор: gsygygcvsgjv
Предмет: Алгебра,
автор: alex13961
Предмет: Литература,
автор: tomka13