Написать программу которая определяет сумму чисел концом которых является 0 (На языке Паскаль)

Question

Жела

27 июня, 08:44

+1

Ответы (1)

Знаете ответ на вопрос?

Романя · Answer 1

-ClrScr;

-Repeat

-readln (i) ;

-If (i mod 3=0) or (i mod 100=0) then s:=s+i;

-until i=0;

-writeln ('Сумма = ', s) ;

-readln

-end.