Предмет: Информатика,
автор: Николай161
Turbo Pascal Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найдите частное этих чисел? срочно. За ранее спасибо
Ответы
Автор ответа:
0
var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
end.
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
end.
Интересные вопросы
Предмет: География,
автор: tehnoo1bhy50418
Предмет: Математика,
автор: Аноним
Предмет: Қазақ тiлi,
автор: Nura1515
Предмет: Математика,
автор: Сute
Предмет: Химия,
автор: Аноним