Вопрос, который вызвал трудности
Написать программу, которая выводит таблицу квадратов первых десяти целых чисел
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.
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.