Предмет: Информатика,
автор: Аноним
Напечатать все целые числа от а до б и квадраты всех целых чисел от а до б через for и while.
Ответы
Автор ответа:
0
var a, i, b: integer;
begin
readln(a, b);
for i := a to b do
writeln(i, ' ', sqr(i));
i := a;
while (i <= b) do
begin
writeln(i, ' ', sqr(i));
inc(i);
end;
end.
В одной программе оба подхода =)
begin
readln(a, b);
for i := a to b do
writeln(i, ' ', sqr(i));
i := a;
while (i <= b) do
begin
writeln(i, ' ', sqr(i));
inc(i);
end;
end.
В одной программе оба подхода =)
Интересные вопросы
Предмет: Физика,
автор: Sprovalikhina
Предмет: Литература,
автор: Calam748474
Предмет: Французский язык,
автор: Аноним
Предмет: История,
автор: AlexKadSerg
Предмет: Литература,
автор: veronikalovekiss