Question

Составить блок-схему и программу:
С помощью клавиатуры введите 4 числа. Выполните действия с числами, удовлетворяющие условиям:
1. Если число ЧЕТНОЕ, то увеличьте в 4 раза и выведите на экран результат
2. Если число НЕЧЕТНОЕ, то уменьшите его на 10 и выведите на экран результат.

Answer 1

// PascalABC.NET v3.3 1633

var nums: array [1..4] of integer;

begin

 for var i:=1 to 4 do

   nums[i]:=ReadLnInteger('Введите '+i+' число: ');

 for var i:=1 to 4 do

 begin

   if nums[i] mod 2 = 0 then

     nums[i] *= 4

   else

     nums[i]:=nums[i] div 10;

   writeln(nums[i]);

 end;

end.