1. Даны два числа. Если оба кратны 3, то первое уменьшить в два раза. Free Pascal
1. Даны два числа. Если оба кратны 3, то первое уменьшить в два раза. Free Pascal
Гость
Ответ(ы) на вопрос:
ГостьVar a,b: real; begin readln(a,b); If (a mod 3=0) and (b mod 3=0) then a:=a/2; writeln(a); end.
Не нашли ответ?
Похожие вопросы