Давид-Ольга
Давид-Ольга
21.05.2023
?>

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

Информатика
Ответить

Ответы

barabanoveugeny
barabanoveugeny
21.05.2023

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ввести целое число если оно четное разделить на 2, если не чётное возвести в квадрат P.S Язык Паскаль
Ваше имя (никнейм)*
Email*
Комментарий*

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

nestruev
Допиши программу. Необходимо разделить number_one на number_two и вывести в ответ целое число, которое в три раза больше результата от этого деления. number_one = 15.65number_two = 7.875number_three ...
Автор: nestruev
Яковчук1911
Последние , с выберите форматирования, которые относятся к прямому форматированию. выберите несколько из 4 вариантов ответа: 1) форматирование абзацев. 3) форматирование основного текста. 2) формати...
Автор: Яковчук1911
Nzharenikova
Системные программы: C++ WinZip Internet Explorer Panda Cloud MS Excel MS PowerPoint Inkscape
Автор: Nzharenikova
Plotnikovangav
Сформулируй ДВА эргономических требований к применению смартфонов.
Автор: Plotnikovangav
daryagulyaeva
нужен код который укажет четные и не четные числа то есть я пишу к примеру 1 и мне пишет Четное пишу 2 Нечетное
Автор: daryagulyaeva
natalili32
Какой тип данных будет при операциях */, +, **? Можно ли изменить тип данных?​
Автор: natalili32
bronco-s
Число 1100001 в восьмиразрядном представлении имеет вид: 1. 01100001 2. 100001 3. 2100001 4. 100100001
Автор: bronco-s
pechatlogo4
Составить таблицу истинности и определить значение функции ((АV¬В) «С)&(¬СVВ)
Автор: pechatlogo4
Marinanagornyak
Зделать так чтобы каждый 3 элемент выводился и потом каждый 4 пропускался (Циклы js)
Автор: Marinanagornyak
Давид-Александр
1. Составить программу вывода на экран квадратов всех целых чисел от a до b. Пример вывода результатов: 2*2=4 3*3=9 4*4=16 и т.д. 2. Для проверки физического развития учеников измеряют вес школьников....
Автор: Давид-Александр
Janaz842060
От программы записанной на алгоритмическом языке перейдите к записи на языке паскаль. определите что будет выведено в результате работы программы если были введены следующие числа :15-103-8640и заполн...
Автор: Janaz842060
alenchik19938823
Ваня перевёл текстовой файл из кодировки ASCII в кодировку Unicode. Как изменился объём файла?
Автор: alenchik19938823
Владимирович_Слабый
Дана матрица действительных чисел размера 7 на 7. вычислите число отрицательных и положительных элементов матрицы, а также найдите среднее арфиметическое каждого из столбца
Автор: Владимирович_Слабый
mgg64
Выберите из списка правильные ответы. 1011₂ + 10₂ = 1000₂ – 11₂ = 1000₂ 1101₂ 110₂ 101₂
Автор: mgg64
alexk13
Сколько байт информации содержит сообщение объемом 256 кбит? (ответ – степень 2 с полным решением ))
Автор: alexk13
▲