Ariron
5 год назад
Инфа, 9 класс
найти сумму всех натуральных чисел до n, которые кратны 3 и одновременно являются нечётными. эти числа вывести на экран в одну строку.
ОТВЕТЫ
Власович
Aug 9, 2019
Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 lt;gt; 0) and (i mod 3 = 0) then
begin
write(i);
write( );
end;
end;
end.
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 lt;gt; 0) and (i mod 3 = 0) then
begin
write(i);
write( );
end;
end;
end.
105
Смежные вопросы:
