Войти Регистрация Спроси ai-bota

Напишите код на языке паскаль!очень надо

Напишите код на языке паскаль!очень надо

Ответ:

djdkdksDkskd

14.05.2021 13:31

var

a:integer;

begin

readln(a);

if a mod 2 = 0 then

inc(a)

else

dec(a);

writeln(a);

end.

0,0(0 оценок)

Популярные вопросы: Информатика

anzoroglyan1

10.06.2021 01:55

Кто исполнил песню волшебник недоучка?...

2ihnik21231

10.06.2021 01:55

Число 24(8) соответствует числу 14(16) 76(16) 10110(16) bf(16) 20(16)...

vlada410

04.06.2021 14:15

Написать программу, которая вычисляет количество четных чисел. последовательность всех чисел задается с клавиатуры. признаком окончания ввода последовательности чисел является значение...

adamenkofamily

06.01.2021 12:28

Почему не выдает числа? uses crt; var i: integer; begin for i: = 100 to 999 do if i=((sqr(i div 100)*(i div 100)) +( (sqr(i div 10)mod 10)*(i div 10)mod 10) + (sqr(i mod 10)*i mod...

kikijiijkjk

12.09.2021 22:56

Тізімнен мәтіндік функцияны анықта....

PomoshnikYa

25.03.2021 18:54

Аксуектер деген ким ☞︎︎︎☜︎︎︎...

dafnaliquor20

27.08.2021 03:47

1.Дан ряд чисел 13,6 ;5,6;4,8;7,4;7,6 ; 5,6; 4,4. Определите: А) среднее арифметическое этих чисел; Б) размах ряда; В) моду ряда; Г) медиану ряда...

Katia15225

13.04.2020 14:46

Хан Могулистана, который принял у себя казахских ханов?А) Абулхаир В) Есенбуга С) Касым D) Абылай Е) Керей...

ого23

13.04.2020 14:46

скласти речення так щоб займенник виконував синтаксичну роль підмета доданка обставини ...

anel1985

04.04.2020 12:19

19. Разновидность баскетбола?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку