Напишите программу, которая в последовательности натуральных чисел определяет сумму всех положительных чисел, меньших 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.