Составить блок-схему и программу:
С помощью клавиатуры введите 4 числа. Выполните действия с числами, удовлетворяющие условиям:
1. Если число ЧЕТНОЕ, то увеличьте в 4 раза и выведите на экран результат
2. Если число НЕЧЕТНОЕ, то уменьшите его на 10 и выведите на экран результат.
С помощью клавиатуры введите 4 числа. Выполните действия с числами, удовлетворяющие условиям:
1. Если число ЧЕТНОЕ, то увеличьте в 4 раза и выведите на экран результат
2. Если число НЕЧЕТНОЕ, то уменьшите его на 10 и выведите на экран результат.
More Questions From This User See All
Answers & Comments
// 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.