1. Информатика
  2. Дано число ,если оно чётное

Дано число ,если оно чётное , то умножить на 2 ,если нечётное то из под корня ; вывести полученное число .

Trumpumpum Trumpumpum    3   19.07.2019 10:00    2

Ответы
EvgenyMalkin71 EvgenyMalkin71  03.10.2020 07:49
Var n:integer;begin  readln(n);  if n mod 2 = 0 then writeln('Чётное → ',n,'*2=', n*2) else writeln('Нечётное → корень(',n,')=', sqrt(n));end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Andrey245667 Andrey245667  01.10.2019 22:01
Блок-схема: найти сумму четных чисел в интервале от 10 до 20...
Sadist702 Sadist702  01.10.2019 22:01
Склавиатуры вводится три числа вывести их на экран в порядке возрастания...
максимилиан123098 максимилиан123098  01.10.2019 22:01
Сколько составит сообщение из 384 символов 16 символ ногой алфавита...
are0t are0t  22.09.2019 13:01
Петя на своём планшете подключил услугу провайдера «месяц интернета бесплатно» и измерил скорость доступа в интернет. так, файл объёмом 1 мегабайт скачался у васи...
Jeka990 Jeka990  22.09.2019 13:01
Іть з програмою,що створює масив парних чисел2, в с++.(мені треба щоб звіритися)...
AelitaFox AelitaFox  22.09.2019 13:01
Вслучае с усложнённым теперь программа не только будет просить пользователя ввести число для возведения в степень и саму программа будет должна осуществлять дополнительную...
Alina7687 Alina7687  22.09.2019 13:01
Вслучае с усложнённым теперь программа не только будет просить пользователя ввести число для возведения в степень и саму программа будет должна осуществлять дополнительную...
sabin200089 sabin200089  28.06.2019 19:50
Определите одной фразой, что определяет следующим фрагментом программы: бейсик … j = 0 for i = 1 to 10 if a(i)=0 then j=j+1 end if next i … паскаль … j: =0; for i:...
nasty286 nasty286  17.06.2019 07:30
Запиши число 112 (6) в десятичной системе счисления....
ЯЛюблюЛето ЯЛюблюЛето  27.09.2019 05:30
Вравнобокую трапецию,одно из оснований которой равно 8, вписана окружность радиуса 6. найдите площадь трапеции...

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