Відповідь:
program MultiplyByTwoOrThree;
var
num: integer;
begin
write('ВВеди число: ');
readln(num);
if num mod 2 = 0 then
num := num * 2;
end
else
num := num * 3;
end;
writeln('Результат: ', num);
readln;
end.
Пояснення:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Відповідь:
program MultiplyByTwoOrThree;
var
num: integer;
begin
write('ВВеди число: ');
readln(num);
if num mod 2 = 0 then
begin
num := num * 2;
end
else
begin
num := num * 3;
end;
writeln('Результат: ', num);
readln;
end.
Пояснення: