Написать программу в Pascal по циклам:
Ежедневно ученик делает в диктанте разное кол-во ошибок.За сколько дней кол-во ошибок достигнет числа q?(Написать программу с циклом while)
Ответ
Автор - 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.