Напишите программу, которая в последовательности натуральных чисел определяет сумму всех положительных чисел, меньших 20 . программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 решить 2-мя через while и через repeat. зарание
Через Repeat :
Var i, s:Integer ;
Begin
I:=1;s:=0;
Write(' Введите последовательность чисел') ;
Repeat
Read(i) ;
If (i>0)and(i<20)then s:=s+i;
Until i=0;
Writeln;write(s) ;
End.
Через While
Var i, s:Integer ;
Begin
I:=1;s:=0;
Write(' Введите последовательность чисел') ;
While i<>0 do begin
Read(i) ;
If (i>0)and(i<20) then s:=s+i;
End;
Writeln;write(s) ;
End.