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

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

Question

Информатика

Франциска

26 октября, 15:58

Написать программу в 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.