Вопрос по информатике:
С клавиатуры вводится последовательность целых чисел. конец последовательности 0. найти сумму однозначных чисел.
Паскаль. 8 класс
вот прям не знаю, как решить... а завтра сдавать(
Пожаловаться
- 14.10.2017 06:21
- Информатика
- remove_red_eye 1420
- thumb_up 46
Ответы и объяснения 1
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);
end;
writeln('вы ввели ',q, ' однозначных чисел');
end.
{-------пример--------}
1 3 45 15 8 9 10 1
вы ввели 5 однозначных чисел
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);
end;
writeln('вы ввели ',q, ' однозначных чисел');
end.
{-------пример--------}
1 3 45 15 8 9 10 1
вы ввели 5 однозначных чисел
Пожаловаться
- 15.10.2017 11:52
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы