Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
var
a: byte; //Возраст явно не больше 255 лет и не меньше 0 :)
begin
readln(a);
case (a) of
6..17:
writeln('Равны');
else
writeln('Не равны');
end;
end.
Но если нужно через if..then..else:
var
a: byte; //Возраст явно не больше 255 лет и не меньше 0 :)
begin
readln(a);
if ((a >= 6) and (a = 17)) then
writeln('Равны')
else
writeln('Не равны');
end.