С клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число.найди сумму квадратов однозначных чисел (написать программу на языке паслкаль)
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
