Написать программу в Pascal по циклам: Ежедневно ученик делает в диктанте разное кол-во ошибок.За сколько дней кол-во ошибок достигнет числа q?(Написать программу с циклом while)
Answers & Comments
kage1998
Program gt; var q,k,a,s:integer; begin writeln('Задайте q'); readln(q); k:=-1;s:=0; while q>s do begin k:=k+1; read(a); s:=s+a; end; writeln(k); end.
Answers & Comments
var q,k,a,s:integer;
begin
writeln('Задайте q');
readln(q);
k:=-1;s:=0;
while q>s do
begin
k:=k+1;
read(a);
s:=s+a;
end;
writeln(k);
end.