Написать программу, которая выводит таблицу квадратов первых десяти целых чисел

natashafed2 natashafed2    3   16.04.2019 23:00    1

Ответы
Токаарічіна Токаарічіна  16.04.2019 23:00
var
x: integer; {число}
y: integer; {квадрат числа }
i: integer; { счетчик циклов}
begin
writeln (‘Таблица квадратов’);
writeln(‘‘);
writeln(‘Число   Квадрат’);
writeln(‘‘);
for i:=l  to 10 do
begin
y:=x*x;
writeln (x:3,y:10);
x:=x+1;   
end;
writeln(‘‘);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы