Question

1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. Пожалуйста с понятным решением..

Answer 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.

 

Answer 2

Решение:

1) Даны два числа. Если они оба четные, то найдем сумму чисел, иначе разность.

2) Даны два числа. Если сумма чисел больше 1, то найдем целую часть от деления, иначе остаток от деления.

Решение 1: - Проверим, являются ли оба числа четными. - Если оба числа четные, то найдем их сумму. - Если хотя бы одно из чисел нечетное, то найдем их разность.

Решение 2: - Проверим, является ли сумма чисел больше 1. - Если сумма чисел больше 1, то найдем целую часть от деления. - Если сумма чисел меньше или равна 1, то найдем остаток от деления.

Теперь рассмотрим каждое решение по отдельности.

Решение 1: - Пусть даны два числа: a и b. - Проверим, являются ли оба числа четными. - Если оба числа четные, то найдем их сумму: a + b. - Если хотя бы одно из чисел нечетное, то найдем их разность: |a - b|.

Решение 2: - Пусть даны два числа: c и d. - Проверим, является ли сумма чисел больше 1. - Если сумма чисел больше 1, то найдем целую часть от деления: c // d. - Если сумма чисел меньше или равна 1, то найдем остаток от деления: c % d.

Теперь, когда мы разобрали оба решения, давайте применим их к конкретным числам.

Пример: 1) Пусть a = 4, b = 6. - Оба числа четные, поэтому найдем их сумму: 4 + 6 = 10.

2) Пусть c = 5, d = 3. - Сумма чисел больше 1, поэтому найдем целую часть от деления: 5 // 3 = 1.

Таким образом, мы решили оба задания в соответствии с условиями.