Регистрация
ufvsjfhgdgkhdvj
28.08.2020 17:33
Информатика
Есть ответ 👍

Вычислить сумму членов последовательности 1, 4, 7, 10, …, не превосходящих числа кс++

140
320
Посмотреть ответы 1

Ответы на вопрос:

даяна55552
даяна55552
4,8(12 оценок)

var i,s,a:integer;

begin

s:=0;

for i:=101 to 999 do

begin

a:=i mod 10;

if (i mod 3 = 0)and(a=8) then s:=s+i;

end;

writeln('s = ',s);

end.

Объяснение:

Популярно: Информатика