Паскаль
Даны 40 квадратов. Найти их площади, если стороны вводятся в компьютер.
Как решать?
Аноним:
Сделать цикл от 1 до 40, в нем вводить число, выводить его квадрат.
Ответы
Ответ дал:
0
Очень даже легко.
Ну вот программка на 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.
Ну вот программка на 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.
Это неверно, нигде не сказано, что все квадраты имеют одинаковую длину стороны.
Хотя, неправ. Не понял сразу, как оно у Вас написано. Нерационально, но так тоже можно.
Но все же проще использовать оператор readln(a) один раз сразу после for
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад