1. Информатика
  2. Ввести целое число если оно

Ввести целое число если оно четное разделить на 2, если не чётное возвести в квадрат P.S Язык Паскаль

СоНя2080 СоНя2080    2   06.04.2021 11:18    1

Ответы
kulmameteva kulmameteva  06.05.2021 11:22

var x:integer;

var y:real;

begin

readln(x);

if x mod 2 = 0 then

y:= x/2

else

y:= x*x;

writeln(y);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MoLoDaYa666 MoLoDaYa666  09.09.2021 14:25
Какое каличкство информации содержит в книге. Объёмом в 200 стр на 1 стр 50 строк по 40 символов на Каждой. Результат выразить в байтах, килобайтов, мегобайтов...
745632189 745632189  09.09.2021 14:27
Соблюдается ли конфиденциальность при использовании электронной почты (дайте развернутый ответ)?...
fgrtyrrrrty fgrtyrrrrty  09.09.2021 14:30
с электронной таблицы MS Excel 2010 посчитайте значение выражения (а+b)*(c+d) для произвольных чисел a,b,c,d...
ostapenkonatasha ostapenkonatasha  09.09.2021 14:30
Подготовьте краткий доклад на тему «Облачные сервисы». Приведите собственные выводы по рассматриваемому вопросу ,...
СтилРайдер СтилРайдер  11.11.2020 16:37
Тема: Программный принцип работы компьютера. Цель: овладеть навыками составления алгоритмов на естественном языке, построения блок-схемы алгоритма, записанного на естественном...
alice108 alice108  11.11.2020 16:37
Написать программу: №1 Вводятся координаты четырёх точек на плоскости, определить могут ли они быть вершинами выпуклого четырёхугольника. №2 Вводятся 4 числа – длины отрезков....
ExploreYT ExploreYT  20.10.2020 02:59
Что относится к периферийным устройствам компьютера?​...
дженни5 дженни5  20.10.2020 03:00
Что относится к периферийным устройствам компьютера?​...
Пакета Пакета  07.12.2020 13:14
6 класс у меня сор у меня воабще не осталась простите за маленький >...
glazyrinasasha glazyrinasasha  05.06.2019 05:01
Перевести число 2004 в десятичной системе в восьмиричную систему. p.s. не получается поделить сразу же, остаток 4 появляется, я в...

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