Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 3. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число – сумму чисел, оканчивающихся на 3.

чепловец чепловец    3   22.05.2019 03:00    1

Ответы
risha5239 risha5239  01.10.2020 05:52

Program n1;
Uses CRT;
Var s,i: integer;
begin
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.

ПОКАЗАТЬ ОТВЕТЫ
Софалия Софалия  01.10.2020 05:52

-Program n1;
-Uses CRT;
-Var s,i: integer;
-begin
-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.

Этой пойдёт в паскале 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика