Написать программу в Pascal по циклам:

Ежедневно ученик делает в диктанте разное кол-во ошибок. За сколько дней кол-во ошибок достигнет числа q? (Написать программу с циклом while)

Question

Информатика

Майа

3 сентября, 11:28

Написать программу в Pascal по циклам:

Ежедневно ученик делает в диктанте разное кол-во ошибок. За сколько дней кол-во ошибок достигнет числа q? (Написать программу с циклом while)

+1

Ответы (1)

Знаете ответ?

Трифена · Answer 1

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.