Pascal ABC, задача с мишенью var
a,b: integer;
begin
a:=RANDOM(100)+1
//WEITEIN ('Вы попали в зону', x);
READLN(b):
IF((a-10)b) then if (a+10)b then writeln ('Вы угадали число с ошибкой', a-b) writeln ('Задуманое число было ', a);
end.
Правильно? Если нет, то напишите, где исправить

Zanyt    3   09.02.2021 16:02    5