True И False

[noisor]

Необходимо написать программу, выводящую на экран слово TRUE, если с клавиатуры введено целое число 42, и слово FALSE, если введено любое другое целое число. Операторами IF и CASE пользоваться при решении задачи нельзя.
Формат входных данных
Целое число
Формат результата
Слово TRUE или FALSE.

[BDA]

read(a);write(a = 42);

[vasek123]

Вообще то, халява у нас не приветствуется, да и думать надо как то ТС, тоже, уметь или хотя бы учиться думать.

Ответ вам, уже дали...

[abit]

Сообщение от vasek123

Вообще то, халява у нас не приветствуется, да и думать надо как то ТС, тоже, уметь или хотя бы учиться думать.

Ответ вам, уже дали...

ой, да что вы так суровы, у меня был случай, профессиональный C++шник с большим стажем завис над моей строчкой в паскале типа:
c:=b=a;

говорил что это какой-то баг языка паскаль, пока я его не ткнул что переменная "с" типа boolean и это полностью корректно так написать

[crazy horse]

Вообще то, халява у нас не приветствуется, да и думать надо как то ТС, тоже, уметь или хотя бы учиться думать.

Да ерунда, способ не единственный, любой препод знает, чего стоит его студент, и, в случае необходимости, в лужу посадит. Нам -то не сложно написать. А в целом - пусть продолжают "учиться" подобным образом. Как говорила одна профессорша: "Тем ценнее я, как специалист."

профессиональный C++шник с большим стажем

завис над

c:=b=a;

говорил что это какой-то баг

Жесть какая-то. Явно, собрат ТС.

[min@y™]

у меня был случай, профессиональный C++шник с большим стажем завис над моей строчкой в паскале типа:
c:=b=a;

говорил что это какой-то баг языка

не верю!

[sanji2010]

if a=42 then
writeln('True')
else
writeln('False');

Ввод и тд сам напиши

[BDA]

sanji2010, "Операторами IF и CASE пользоваться при решении задачи нельзя".

[sanji2010]

Сообщение от BDA

sanji2010, "Операторами IF и CASE пользоваться при решении задачи нельзя".

Извинюсь, не дочитал

[Donald Ervin Knuth]

Сообщение от sanji2010

if a=42 then
writeln('True')
else
writeln('False');

Ввод и тд сам напиши

if же использовать нельзя

Воистину работает, не знал. Спасибо.

program tru;
var
a:integer;
begin
write('Задай число');readln(a);
writeln(a=42);
end.

В учебнике такого нет