С клавиатуры вводится последовательность целых чисел. конец последовательности 0. найти...

0 голосов
88 просмотров

С клавиатуры вводится последовательность целых чисел. конец последовательности 0. найти сумму однозначных чисел.
Паскаль. 8 класс
вот прям не знаю, как решить... а завтра сдавать(


Информатика (237 баллов) | 88 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var
 q, c: integer;
begin
    writeln('Введите последовательно числа. 0 - окончание ввода');
    q:=0;
    while true do begin
        readln(c);
        if c=0 then break;
        if (c>0) and (c<10) then Inc(q);<br>
    end;
   writeln('вы ввели ',q, ' однозначных чисел');
end.

{-------пример--------}
1 3  45  15  8 9 10 1
вы ввели 5 однозначных чисел

(17.3k баллов)