profile
Опубликовано 5 лет назад по предмету Информатика от нааааааааааааааастя

дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности равно 0

  1. Ответ
    Ответ дан Mepkypuu
    var numb,count:integer;
    begin
    readln(numb);
    while numb<>0 do
    begin
    if (numb mod 5 = 0) then
    count:=count+1;
    readln(numb);
    end;
    writeln(count);
    end.
Самые новые вопросы