var a,b,c: integer;
begin
writeln('Введите числа А, В, С');
readln(a,b,c);
if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);
end.
Язык программирования Pascal
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c: integer;
begin
writeln('Введите числа А, В, С');
readln(a,b,c);
if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);
end.
Язык программирования Pascal