1. Информатика
  2. Напишите код на языке паскаль!очень

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


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

asyast26 asyast26    3   14.04.2021 13:31    0

Ответы
BOTAN1337228101 BOTAN1337228101  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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ggg2223333 ggg2223333  06.04.2021 14:14
Який вигляд має блок-схема циклу з передумовою? Поясніть виконання цього циклу. очень...
navaxa navaxa  06.04.2021 14:17
1)Створити новий файл Python за до середовища розробки програмного забезпечення IDLE. Створіть програму за даною задачею: a. На вході маємо число а, яке буде запитуватися...
krav4enkom krav4enkom  13.04.2020 11:47
Варианты ответов: 1.program zadaca; var a: integer; begin writeln( Введи число a ); readln(a); if a =0 then if a=0 then a:=11 else a:=a+1 else a:=a-3; end. 2. program...
IrishkaLis IrishkaLis  13.04.2020 11:47
1)Какие вы можете назвать пути размещения заднего фоны игры?2)Какая команда используется для размещения одного изображения поверх другого?​...
jandar200 jandar200  13.04.2020 11:47
Реши задачу. (ответ округли до сотых).Скорость рас звука в воздухе в зависимости от температуры может быть найдена приближенно по формуле v=331+0,6t, где v — скорость...
Tesckep Tesckep  13.04.2020 11:47
Дано число 864000000. Данное число можно представить в виде 0,864*10​...
Septarik Septarik  26.04.2021 21:27
Переведите на С int n, i; float sum = 0, *a; scanf( %d , &n); assert(a = (float*)malloc(n*sizeof(float))); for (i=0; i scanf( %f , &a[i]); if (i != n-1) sum +=...
198219821982 198219821982  26.04.2021 21:27
Как защитить свои данные на компьютере? Определи логотипы антивирусных программ.Верных ответов: 2Рис. 1Рис. 2Рис. 3​...
Ruta12340 Ruta12340  12.05.2020 09:16
подпишите название инстументов...
AlenaStypak AlenaStypak  12.05.2020 09:16
Екі айнымалысы бар сызықтық теңдеулержүйесін қосу тәсілімен шешу​...

Популярные вопросы