Question

помогите решить пожалуйста

Answer 1

Программа написана на языке Pascal

program z1;
var a,b:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if ((b-a=2) and (b mod 2=1) and (a mod 2=1)) or ((a-b=2) and (b mod 2=1) and (a mod 2=1))
then write('Введенные числа близнецы')
else write('Введенные числа не близнецы');
end.