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.