Составить программу в Паскаль. Даны числа от 1 до 100. Четные числа увеличили в 2 раза, нечетные заменить 0

Question

Томуля

13 декабря, 11:52

+2

Ответы (1)

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

Ниноха · Answer 1

Var

A:integer;

Begin

For A: = 1 to 100 do

Begin

if A mod 2 = 0 then Write (A*2,' ')

else Write ('0 ')

End;

End.