tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан фрагмент программы , допишите
Дан фрагмент программы , допишите раздел объявления переменных. begin. read (k) ; c: =k mod 2; if c=o then v: =true else v: =false; if v then write (‘четное’) else write (‘нечетное’); end.
abroe
2 25.09.2019 17:50
2
Ответы
alina1934
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ryenasssss
27.07.2019 21:10
Составить программу на языке паскаль вводится натуральное число х (х 9). 1. определить, ли по значению первая и последняя цифры.. например, ввод: 727 вывод: число начинается и...
odolskij2016
27.07.2019 21:10
#дел/0 что означает данное сообщение об ошибках?...
sofiafrog2004
27.07.2019 21:10
Написать программу 1) вычислить (1 + sin 0,1)(1+ sin 0, + sin 10)...
Nikronix
27.07.2019 21:10
Решить с циклом repeat-until, лучший ! 1. произведение первых нечетных натуральных чисел равно p. сколько сомножителей взято. 2. написать программу, вычисляющую сумму и среднее...
anmon07
15.06.2020 21:49
В ячейке А1 хранится число 20, в ячейке B1 хранится формула =A1/2. Чему будет равно значение ячейки С1, если в нее ввести формулу =А1+B1: А) 30 Б) 20 В) 10...
vovabondar28
14.06.2020 21:48
Что необходимо для эффективной работы видеотелефонии? 2. Как проверить наличие встроенной веб-камеры на компьютере? 3. Какие преимущества организации веб-сессии в популярной программе,...
Noname010203
14.06.2020 21:39
Перечислите достоинства видеосвязи с сети Интернет для общения друг с другом? 2. В каких направлениях возможно взаимодействие собеседников при организации видео-веб-сессий. 3....
женя1373
14.06.2020 21:32
Переведите программу с языка паскаль на язык питон: var i,n,r : Integer; Begin write( N= ); readln(n); R:=2; //это первый и последний for i:=1 to n do R:=r+(n-i); writeln(r); readln;...
honeybeyker
14.05.2020 11:21
ЗАРАНЕЕ ОГРОМНОЕ Ниже приведена программа:var s,k: integer;beginreadln(s);readln(t);if (s 1) and (t 2)thenwriteln ( YES )elsewriteln ( NO )end.Было выведено 9 запусков программы,...
Бегемот505
14.05.2020 11:11
Запитання 3Алгоритмічні структури бувають:варіанти відповідейA) наслідування, повторення, згортання,Б) слідування, згортання, циклічна,В) слідування, повторення, розгалуження,Г)...
Популярные вопросы
Сделать морфологический разбор слова ищут...
1
Рассказ краски зимнего леса сочинить 4-5 предложений, 2 класс ,...
1
Сколько валентных электронов имеют атомы свинца, галлия, сурьмы, кальция, иода?...
2
Односоставными предложениями с подлежащим в стихах , работу сдать ужно заранее...
3
Шерсть, шёлк,бельё из тонкий тканей и кружевные изделия почему нельзя их кипятить...
3
Три пословицы со сказуемым - глаголом в форме 2 лица. . с:...
2
На полке лежат игрушки: белые, синие, красные. некоторые из них дорогие, а некоторые...
3
Составить синквейн про гринева петра (3 глагола про него)...
3
Нужно решить до завтра ) дан треугольник авс. точка е- середина стороны ас,...
1
За 8 секунд ежик пробежал путь длиной 16 м, а на обратном пути скорость 2 раза...
1
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.