Безотлагательно!!!!Напишите программку, которая в последовательности естественных чисел определяет
Безотлагательно!!!!
Напишите программу, которая в последовательности естественных чисел определяет сумму всех положительных чисел, наименьших 20 . Программка получает на вход естественные числа, количество введённых чисел неизвестно, последовательность чисел кончается числом 0 Решить задачку 2-мя способами: через while и через repeat.
Зарание спасибо!!!!
Через Repeat :
Var i, s:Integer ;
Begin
I:=1;s:=0;
Write(' Введите последовательность чисел') ;
Repeat
Read(i) ;
If (igt;0)and(ilt;20)then s:=s+i;
Until i=0;
Writeln;write(s) ;
End.
Через While
Var i, s:Integer ;
Begin
I:=1;s:=0;
Write(' Введите последовательность чисел') ;
While ilt;gt;0 do begin
Read(i) ;
If (igt;0)and(ilt;20) then s:=s+i;
End;
Writeln;write(s) ;
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.