Ответы на вопрос:
Program qwe; uses crt; var a: real; begin clrscr; write('введите число: '); readln(a); if a mod 3=0 then writeln('da') else writeln('net'); readkey; end.
Популярно: Информатика
-
Найти лишнее а) принтер, монитор, сканер, наушники...
BackedSmile21.04.2022 13:17 -
Краткое сообщение об любом из профессии связанные с компьютером....
anakukla219.01.2021 05:25 -
Умножь, сначала постарайся сократить (ответ — целое число решить...
ilyailiavolkov26.01.2022 20:01 -
При какой входной последовательности к приведенному алгоритму...
deonisius0325.02.2021 14:09 -
2. Дан рекурсивный алгоритм: procedure F(n: integer); begin...
алекей418.02.2023 03:46 -
Кто такой клод шеннон и чем он знаменит?...
Надежда77733309.06.2020 02:12 -
с информатикой! Плата за пользование некоторой услугой составляет...
konoval1i19.09.2022 03:26 -
Кто из мореплавателей на судне «добрая надежда» достиг берегов...
TIME6ONLINE25.02.2020 21:28 -
Цепь постоянного тока со смешанным соединением состоит из пяти...
gamergrisha109.01.2021 18:46 -
Чем отличается корневой системы? ответ нужен......
Элина201826.04.2022 10:50