Помогите,нужно расписать как в Паскале:
Составить программу вывода на экран квадратов чисел от 1 до 10 с использованием оператора "while". (100 должна быть последняя цифра)
Составить программу вывода на экран квадратов чисел от 1 до 10 с использованием оператора "while". (100 должна быть последняя цифра)
More Questions From This User See All
Answers & Comments
USES crt;
var i,n,s:integer;
BEGIN
n:=2;
While s<100 do
begin
n:=n*2;
s:=n;
Writeln(s);
end;
end.