Паскаль Даны 40 квадратов. Найти их площади, если стороны вводятся в компьютер. Как...

Question

Паскаль
Даны 40 квадратов. Найти их площади, если стороны вводятся в компьютер.
Как решать?

Comments

Сделать цикл от 1 до 40, в нем вводить число, выводить его квадрат.

Answer 1

Очень даже легко.
Ну вот программка на PascalABC:
program kv;
var
a,s,i:integer;
begin
readln (a);
for i:=1 to 40 do
begin
s:=sqr(a);
writeln (s);
readln (a);
end;
end.

Comments

Это неверно, нигде не сказано, что все квадраты имеют одинаковую длину стороны.

---

Хотя, неправ. Не понял сразу, как оно у Вас написано. Нерационально, но так тоже можно.

---

Но все же проще использовать оператор readln(a) один раз сразу после for