Вопрос, который вызвал трудности
Определите, что делают следующие программы, и дополните команду вывода.
1. var x: integer;
a: boolean;
begin
write(ꞌВведите x =ꞌ);
read(x);
a := x mod 10 = 0;
write(ꞌЧисло ... — ꞌ,a);
end.
2. var x: integer;
a: boolean;
begin
write(ꞌВведите x =ꞌ);
read(x);
a := (x 10) and (x 100);
write(ꞌЧисло ... — ꞌ,a);
end.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
ответ к заданию приложен
