1. Информатика
  2. Создайте программу на языке

Создайте программу на языке Паскаль, которая возводит нечётное число в квадрат, а чётное — в куб.

ksyxa92 ksyxa92    2   21.04.2020 20:22    5

Ответы
shum2 shum2  13.10.2020 15:18

Program abc;

var a:integer;

begin

 Write('Введите число:');readln(a);

 if (a mod 2 = 0) then a:=a*(sqr(a)) else a:=sqr(a);

  Writeln(a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
isabekovsabr isabekovsabr  05.04.2021 22:21
В чем допущена ошибка в программе? Переменную х считать заданной заранее, ошибку искать именно в ветвлении if 1 x=x+1 y=0 else: x=0 y=y+1...
nova9696 nova9696  05.04.2021 22:21
Задайте путём перечисления всех элементов: множество J всех цифр, используемых для записи чисел в двенадцатеричной системе счисления...
Роксолана123456789 Роксолана123456789  09.03.2022 22:34
1.Можно ли на основе определенных стилей создать шаблон буклетов? да - нет2.Можно ли создать собственные стили?да - нет3.При работе с большим текстомприменяют стилевое форматированиеприменяют...
Tigr111111112 Tigr111111112  26.07.2022 18:44
, задание на картинке (комп. сети)...
Olesqqqa Olesqqqa  26.07.2022 13:17
Создание программы расчета.. Шар радиусом R помещается в канавку в виде ромба со сторонами P и Q Можно ли пройти под углом? Напишите программу, которая его определяет....
Martinii1 Martinii1  26.07.2022 11:07
Цикл. Задания Должны быть выведены все значения Х и Y, определить при каких значениях Х наблюдается Max и Min и их значения....
Rzaevat Rzaevat  26.07.2022 03:03
Задание на Листе 1 и Листе 2. легкие, но нужно сейчас...
Neimeyumozg Neimeyumozg  03.10.2019 19:20
Файл размером 24 кбайт передаётся через некоторое соединение за 80 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 2 минуты. в ответе...
VadimqaFL VadimqaFL  03.10.2019 17:58
информатика 7 класс,не поняла тему,...
anyta03 anyta03  03.10.2019 19:20
Скорость передачи данных через adsl-соединение равна 128000 бит/c. передача файла через данное соединение заняла 16 секунд. определите размер файла в кбайт. в ответе укажите одно...

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