Question

Пожалуйста, очень срочно. Информатика 8 класс, в паскале нужно сделать. Даю 30 баллов

Answer 1

program blokshema;

var b,c:integer;

begin

    b:=0;

    c:=0;

    repeat

          c:=c+b;

          b:=b+1

    until

         b<>1;

    write('b=',b,';c=',c);

end.

program dvuznachnie;

var i:integer;

begin

    for i:=10 to 99 do

    begin

         if (i mod 3 = 0) or (i mod 5 = 0) then write(i,' ')

    end;

end.

program summapervih80;

var i,c,s:integer;

begin

    s:=10;c:=10;

    for i:=1 to 79 do

    begin

         s:=s+3;

         c:=c+s;

    end;

    write(c)

end.