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

Срочно paskal abs решите срочно дам 1000 баллов если решите скину ссылку на 1000 баллов
дано одно число если это число больше 5 заменить его на 0 если нет заменить на 1

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

Скорее всего, имеется в виду вот это:
var x:integer;
begin
write(x=);readln(x);
if x>5 then x:=0 else x:=1;
writeln(x=,x);
end.