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

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

Question

Информатика

Тихослава

16 января, 05:47

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

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

+2

Ответы (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.