pascal
Объяснение:
var n: integer;
begin
Write('Введите число n: ');
ReadLn(n);
if n mod 4 = 0 then n := n * 3;
WriteLn('Теперь n = ', n);
end.
pascal
Объяснение:
var n: integer;
begin
Write('Введите число n: ');
ReadLn(n);
if n mod 4 = 0 then n := n * 3;
WriteLn('Теперь n = ', n);
end.