Как создать программу Pascal, бонус 1 кредит

program zad1;

var a: integer; b: integer;

begin

writeln ('Vvedite chislo A: ');

readln (a);

writeln ('Vvedite chislo B: ');

readln (b);

if a mod 2 = 0 then writeln ('Chislo A = ', a, ' kratno 2')

else if b mod 2 = 0 then writeln ('Chislo B = ', b, ' kratno 2')

else writeln ('Ni odno iz chisel ne kratno 2') ;

readln;

end.

Вторую решите по аналогии (2 заменить на 3).

самый простой способ - это не ждать готового ответа, а найти в поисковике как писать программы и попытаться разобраться. Программа простецкая. Пишете стандартный код, а вместо формулы - пишете своё условие.

Честно. Программу на Паскале написать несложно. Задачи у вас легчайшие. Больше даже не на программное знание, а на логику. Вы сами с легкостью справитесь, если загляните в Интернет.

за 100 рублей за задачу - могу написать конкретное решение.