ИНФОРМАТИКА 8 класс
Написать программу по блок схеме, Паскаль, цикл до и пока

1) Program P1;uses crt;var d, k: real;beginclrscr;d:=1;k:=12;while k<=30 do begin d:=d+1; k:=k*1.2+2; end;write ('d=', d);readkey;end.2) Program P2;uses crt;var a, b, c, n: real;beginclrscr;write ('a=');readln (a);write ('b=');readln (b);write ('c=');readln (c);n:=0;while a<c do begin n:=n+1; a:=a*1.25-b; end;write ('n=', n);readkey;end.

одно важное не указали, в каком языке это нужно сделать, а их дохрена