logo
Войти Регистрация Спроси ai-bota


keram1it228
12.03.2023 10:56

Составьте программу на паскале для вычисления n+5 для нечётного целого числа n и n^2 для чётного n.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
какчитаетсяэтосказка
В чем отличия абсолютных ссылок от относительных в табличном процессоре; для чего используется условная функция...
nazaroline
nazaroline
19.07.2022 17:21
Составить программу для решения следующей задачи: Дан массив из 15 целых чисел, заполненный с датчика случайных чисел (диапазон чисел [0,49]). Подсчитать количество четных чисел...
Foret228
Foret228
25.10.2022 20:07
А1. Укажите распределительный закон для дизъюнкции?A & (B v C) = (A & B) v (A & C)A v (B & C) = (A v B) & (A v C)(A & B) & C = A & (B & C)(A v...
alek09
alek09
11.12.2020 01:02
Нужна блок-схема нарисованная. var i, j, n, min: integer; v: array[1..8]of integer; p: array[1..8]of integer; s: array[1..8]of integer; begin min : = 999; for i : = 1 to 8 do read(v[i]);...
dron1131
dron1131
11.12.2020 01:02
Составьте программу, которая заполняет массив a[1..8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов...
KsushaTrefilova
KsushaTrefilova
11.01.2021 04:47
Автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в коде windows-1251, в кодировку unicode. при этом информационное...
sofiko07161
sofiko07161
22.05.2022 22:45
Задача 1. Составьте программу, которая 40 раз выведет на экран фразу «Дистанционное обучение».Задача 2. Составьте программу, которая вычисляет кубы нечетных чисел от 1 до 111.Задача...
ivanzalivnoi
ivanzalivnoi
05.02.2020 11:12
Напишите программу которая будет считать среднее арифметическое трех вещественных чисел, заданных с клавиатуры ​...
Viktoria235601
Viktoria235601
20.04.2021 09:46
14) С каких горячих клавиш невозможно изменить язык в текстовом процессоре? а) Alt+Shiftб)Ctrl+ Shiftв) Alt + Ctrl​...
Lia20020313
Lia20020313
18.05.2021 12:22
Считая, что каждый символ кодируется в Unicode, чему будет равен информационный объем текста: «Итоговая контрольная работа!»? ответ записать в байтах....
Ответ:
arishavip1972
09.10.2020 00:20

var n:integer;


begin

   readln(n);

   if n mod 2 = 0 then

       writeln(n*n)

   else writeln(n+5);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота