Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Программа написана на языке 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.