Вывести на экран квадраты чисел от 11 до 27 .
lololoki03
2
22.06.2019 03:10
3
Другие вопросы по теме Информатика
матькорейцев2345
19.01.2021 13:05
frostdog0609
19.01.2021 13:01
Pikasso07
19.01.2021 13:04
Gymanitariu
19.01.2021 13:04
Gdyfyttyffhfry
19.01.2021 13:04
lozhe4ka
19.01.2021 13:07
Raul020507
19.01.2021 13:08
mariyakohtuk
19.01.2021 13:11
egorbychkov83
19.01.2021 13:12
kostenkoelizav
19.01.2021 13:13
Популярные вопросы
- Сочинение как я видела извержение вулкана...
3 - Определите степень окисления хлора в хлорноватистый кислоте...
3 - Для изготовления молочного коктейля смещают молоко с мороженым...
3 - Переведите следующие слова на язык я, ты, он, она, оно, мы, они,...
3 - Расположите в порядке появления понятия: 1.бобыль 2.самозванец...
1 - Нову ученицю в опавiданнi василя сухомлинського горбатенька дiвчинка...
3 - Нужно написать программу в паскаль r=(max(min(x,y),z))/3...
1 - Какие события в греции возвышению македонии?...
1 - Сформулируй по краткой записи кол-во квартир 256,в 5 раз больше...
2 - Составьте текст повествование и расскажите в нём о каком нибудь...
3
Var k,i:integer;
Begin
For i:=11 To 27 Do
begin
k:=k+sqr(i);
Writeln(k);
end;
End.
begin
a:=10;
b:=0;
while(a < 27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b);
end;
end.