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

1) Program P1;
uses crt;
var d, k: real;
begin
clrscr;
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;
begin
clrscr;
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.

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