tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
1) пусть дано целое
1) пусть дано целое число i. требуется оставить его без изменения, если оно делится на 2, и вычесть из него 1, если это не так
cherepd2005
3 02.09.2019 19:40
0
Ответы
hessous
06.10.2020 13:02
Var
i: integer;
begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Betmen23
29.09.2019 23:07
15 надо решить на языке с++даны 2 числа, если они имеют разные знаки, то поменять их местами, иначе найти их сумму...
BakerTaka
30.09.2019 00:10
Раскодировать mdewmtewmdawmtawmtawmdax. точно знаю, что зашифровано примерно в 5-6 этапов (есть бинарный код, base64, utf-8)...
GGGKazakhstan
29.09.2019 23:13
Построить график функции в электронных таблицах excel...
ressoli442
07.07.2019 01:30
Требуется расчитать параметры треуголинка с углом 30 градусов по заданному катету, лежащему против угла в 30 градусов. нужно составить программу...
Kseniya204
23.04.2020 13:57
Б) Делать от к=--5 до -7 с шагом -2(действие;действие;в) Делать от к=-9*8+-11*3 до 3*8+4*4 с шагом 2(действие;действие;...
Милкович11
20.08.2019 21:20
Даны три числа(a,b и c),определите значения наименьшего из них....
funfup
20.08.2019 21:20
Решить . дан произвольный треугольник abc, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h...
mrden3333
20.08.2019 21:20
1)первая бригада может выполнить за 6дней,а второая за 3 дня.за сколько дней обе бригады выполнят ,работая вместе 2)два велосипедиста одновременно направились навстречу друг другу...
Jastick
20.08.2019 21:10
1,5 мегабайта равны 1)1500кбайтов 2)1536байт 3)1536кбайт 4)1500 байт 5)0,015 гбайтов...
Ороохзшрорр
20.08.2019 21:10
Решить . 1. если информация имеет объем 14 мб, определите ее объем в битах, байтах и килобайтах. 2.если известно, что объем информации в книге 640 кб, то с каким количеством слов...
Популярные вопросы
√х-√х+1=0 развязать уравнение...
3
В основи материка пивденна америка лежить платформа...
1
Придумайте для дошкольников задания с геометрическими фигурами, которые предполагают...
2
Розкрити прихований зміст віршів Лі Бо...
3
Надо прочитать и ответить на вопросы...
2
Раньше в школах России вместо тетрадей использовались маленькие грифельные доски...
2
Решить неравенство 3^2x+3 27 log_3 (5x-3) 2...
3
Площа повної поверхні паралелепіпеда з вимірами 1см, 4см, 3см...
3
Які функціональні групи містяться в складі сахарози...
3
ЛАБОРАТОРНА РОБОТА № 4 Тема. Вимірювання періоду обертання та обертової частоти....
2
i: integer;
begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end