Ответы на вопрос:
Program up1; var q: integer; begin writeln('введите число'); read(q); if q> 0 then write('число больше 0') else write('число меньше 0'); end.
Популярно: Информатика
-
В каком случае используют команду ( Повтори раз)? А) число повторенний известно...
АнанасикиРулят01.07.2021 05:24 -
Составьте таблицу, содержащую следующие поля ...
ibatulina0318.04.2020 11:22 -
Составьте диолог используя эти слова кровоброщение...
katyamalahova4709.05.2022 12:56 -
До якого з алгоритмічних структур належить алгоритм наповнення стакана меншим стаканом...
NShmak02.10.2021 21:19 -
Запишите программу, которая вводит катеты треугольника и выщитывает его площадь....
DEGoP17.08.2020 08:29 -
Написать программу в паскале даны два ненулевых числа. найти их сумму, разность,...
elzarik0809.10.2022 13:55 -
Написать программу в паскале найти периметр и площадь прямоугольного треугольника,...
Лелечка4310.11.2020 03:49 -
Написать программу в паскале три сопротивления r1, r2 и r3соединены параллельно....
ника256910.10.2020 06:35 -
Информатика 4 класс. может ли одно и то же понятие быть и родовым и видовым? объяснить...
DarkWolf1122.06.2020 16:35 -
1)что обозначает слово код- 2)что обозначает слово кодирование- 3)что обозначает...
Ali2009131.12.2021 02:56