1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. Пожалуйста с понятным решением..
1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. Пожалуйста с понятным решением..
Гость
Ответ(ы) на вопрос:
Гость1) var
a,b:integer;
begin
readln (a,b);
if (a mod 2 =0) and (b mod 2=0) then writeln (a+b);
if (a mod 2<>0) and (b mod 2<>0) then writeln (a-b);
end. 2) var
a,b:integer;
begin
readln (a,b);
if (a+b>1) then writeln (a mod b)
else
writeln (a div 10);
end.
Не нашли ответ?
Похожие вопросы