<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Ответ:
12 Скорость передачи данных по локальной сети 512000 бите.
Передача файла через это соединение заняла 1 минуту. Определите
объем данного файла в килобайтах.
Итак, есть скорость:512000 бит/с
Есть время: 60 сек;
Нужно найти расстояние. 60*512000=2048000*15 бит
2048000*15/8/1024=30000/8=15000/4=7500/2=3750 килобайт
13 Вычислите необходимый объем видеопамяти для графического
режима, если разрешение экрана монитора составляет 1024 на 768
пикселей и глубина цвета 32 бита.
1024*768*4=3 мегабайта
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец
1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
Мультфильм про самых лучших мам или учительниц:*