Question

Срочно решите задачи!
по abc Pascal!!

Answer 1

program zadacha;

var

i: integer;

st:real;

begin

writeln('vvedite stoimost 1 kg');

readln(st);

for i:=1 to 10 do

write(st*i:6:1,' ');

end.

 

 

program zadacha_2;

var

N,i: integer;

begin

writeln('vvedite N');

readln(N);

i:=1;

while

N>(sqr(i)) do

begin

i:=i+1;

if N<(sqr(i)) then writeln(sqr(i));

end;

end.

Answer 2

что-то со второй пока не получилось