Вот ниже прикрепил, посмотри и картинка и скрипт
Первый вариант:
Var
a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.
Второй вариант:
Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.
Команда 1:
Из числа 1 можно выполнить 2 команды, получится:
1) 1+2=3
2) 1*3=3
Команда 2:
C каждым полученным числом выполняем еще по 2 команды:
Первое число: 1) 3+2=5
2) 6*3=18
Второе число: 1) 3+2=5
2) 6*3=18
Команда 3:
У нас получилось 4 числа, проделаем то же самое
Первое число:
1) 5+2=7
2) 5*3=15
Второе число:
1)18+2=20
2)18*3=54
Третье число:
1) 5+2=7
2) 5*3=15
Четвертое число :
1)18+2=20
2)18*3=54
В итоге, у нас получилось 4 различных числа (так как при выполнении со второй командой, числа получались те же самые)
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.