Написать программу, которая выводит таблицу квадратов первых десяти целых чисел
спросил 17 Дек, 18 от cevka в категории школьный раздел

решение вопроса

+7
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.
ответил 17 Дек, 18 от Olenka

Связанных вопросов не найдено

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.