1. Информатика
  2. На языке программирования заранее

На языке программирования заранее ) 1) составьте программу,проверяющую,верно ли утверждениечто введенное вами целое число является четным. 2)напишите программу,которая бы запрашивала целое число и распечатывала любое его значение,кроме 13. если заданное число равно 13,вместо него печатается число 77. ; (( если незнаете как решать не занимайте место для ответа

slavik528 slavik528    2   22.06.2019 01:40    2

Ответы
Лина5678 Лина5678  02.10.2020 07:53
Var
  n:integer;
begin
  Write('Введите четное число: '); Readln(n);
  if (n mod 2)=0 then Writeln('Верно!')
  else Writeln('Неверно!')
end.

var
  n:integer;
begin
  Write('Введите любое целое: '); Readln(n);
  if n<>13 then Writeln(n) else Writeln(77)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Данилкамастре Данилкамастре  02.10.2019 15:20
Задан произвольный текст. удалить все запятые и определить на сколько символов уменьшить я текст( паскаль, подробно, через write, read, delete и тп)...
rano09 rano09  02.10.2019 14:03
Комануғeeere apoiр куртының нөмiрiп сойкестендіріп жаз.опилеуқүрылсандыққұрылғыларкрылысы13 иікүрылысыстаaniау​...
Z1439373 Z1439373  23.07.2019 11:30
Составить программу выставления суммы и произведения двух чисел а и б. а, б - исходные числа х - сумма у - произведение program name var a, б, x, y: real; begin writeln ( выведети...
nabiullinnazim nabiullinnazim  23.07.2019 11:30
Сколько значащих нулей в двоичной записи числа 4^16+2^36-16? по подробнее с формулами....
tim2003np0acpp tim2003np0acpp  15.04.2020 17:21
решить теорию Алгоритмов,вариант 2...
математик202 математик202  07.10.2019 13:10
1)выбери верный ответ. c= 16 5 *не является высказыванием *c=0 *c=1 2)запиши следующее высказывание в виде логического выражения: «если я хорошо подготовлюсь по языку, и биологии,...
Неизвестная002 Неизвестная002  07.10.2019 12:11
110 двойной системе надо получить восьмеричный...
нет169 нет169  07.10.2019 13:10
№1. у исполнителя калькулятор две команды, которым присвоены номера: 1. прибавь 1 2. умножь на 3 выполняя первую из них, калькулятор прибавляет к числу на экране 1, а выполняя вторую,...
Mondy228 Mondy228  07.10.2019 13:10
Заданный в массиве заменить нулём наибольший элемент и вывести массив на экран информатика 9 класс,паскаль сделайте ,. !...
dfghngh dfghngh  07.10.2019 13:10
Если вы хотите чтобы на вашем планшете можно было установить приложения ms office, с какой операционной системой надо купить планшет? ​...

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