Question

Помогите пожалуйста с заданием, я не сильно разбираюсь в информатике.
Написать в тетради программу, которая выводит на экран: 1) все числа от одного до заданного 2) квадраты чисел от одного до заданного.

Язык программирования: Pascal.

Answer 1

1)

--------------------------------------------------------------------------------

Var a,b,i: integer;

begin

writeln('Введите число до который стоит вывести числа?');

readln(a);

for i:=0 to a do  

begin

b:=i;

write(b,'; ');

end;

end.

--------------------------------------------------------------------------------

2)

--------------------------------------------------------------------------------

Var a,b,i: integer;

begin

writeln('Введите число до который стоит вывести числа?');

readln(a);

for i:=0 to a do  

begin

b:=sqr(i);

write(b,'; ');

end;

end.

--------------------------------------------------------------------------------

Объяснение: