Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
marta12t
25.09.2019 17:50 •
Информатика
Дан фрагмент программы , допишите раздел объявления переменных. begin. read (k) ; c: =k mod 2; if c=o then v: =true else v: =false; if v then write (‘четное’) else write (‘нечетное’); end.
Показать ответ
Ответ:
terrabyte
08.10.2020 19:00
Var k,c,o: Integer;
V: Boolean;
Begin
Read(K);
C:=K mod 2;
If C=o then V:=true else V:=false;
If V then Write ('Четное') else write ('Нечетное');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ninayurova51
24.05.2019 02:10
Выведите на экран turbo pascal используя операторы while и repeat: 1)все двухзначные числа, в которых старшая цифра отличается от младшей не больше чем на 1; 2)все трехзначные...
IvanWINNER
24.10.2019 22:20
От прямоугольника каждый раз отрезается квадрат максимальной площадью. составьте программу которая находит число таких квадратов. программа получает на вход два целых положительных...
xacku1
24.10.2019 22:30
Информатика. не понимаю просто! всё подробно...
2005NeZnayka2005
24.10.2019 20:38
Что представляет собой графический обьект в редакторе flash?...
Fhbhkdkd
20.09.2019 06:40
Надо перевести программу с паскаля на кумир, program r228; var n,x: integer; begin x: =0; writeln( введите число ); readln(n); if n 0 then x: =x+5; writeln(x); end....
injugulshat
20.09.2019 06:40
Написать программу на языке java которая из трехзначного числа введеного на клавиатуре вычтит три этих числа отдельно...
ruslanasvetlic
24.05.2020 13:08
Перевод в десятичную систему! >...
hjdbrvjt
25.05.2020 02:32
Фотографию размером 1280*1024 сохранили на компьютере. Для хранения информации о цвете использовали 8 бит. Определите размер получившегося файла (в Кбайтах). В качестве...
kaskader2475
24.05.2020 13:48
Окей написать ПОЛНЫЙ код с ++ Очень нужно Данные массивы целых чисел {ai}(i=1,2...,n) и {bj} (j = 1,2 ... ,m), а также целое число k. Если в массиве aнема ни одного элемента...
Айlosss
14.08.2019 19:40
Написать в столбик все числа от 1 до 100 определить сумму чисел от1 до 200...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
V: Boolean;
Begin
Read(K);
C:=K mod 2;
If C=o then V:=true else V:=false;
If V then Write ('Четное') else write ('Нечетное');
End.