1. Информатика
  2. Составьте программу на

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

alena1706 alena1706    3   02.03.2020 16:17    7

Ответы
Varvarizma Varvarizma  11.10.2020 16:45

program N1;

var

a:integer;

begin

readln(a);

If (a>0) then writeln(a+1)          

          else writeln(a

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
WWW2017WWW WWW2017WWW  11.03.2019 19:20
Составте программу, которая задает вопрос в каком году был основан город минск (например в 1067г., в 993г. либо в в случае верного ответа программа должна сообщить верно , в противном...
demidboevoff demidboevoff  06.10.2019 01:02
Напишите интерпретатор на паскале 50 не игнорте...
marusi220 marusi220  06.10.2019 01:02
Действительные числа a, b, c. если нельзя построить треугольник с такими сторонами, то напечатать 0, иначе 3, 2 или 1 в зависимости от того, равносторонний этот треугольник, равнобедренный...
Peleshok83 Peleshok83  06.10.2019 01:02
Дан одномерный массив a целого типа, состоящий из n элементов. найти в массиве третий, считая слева направо, элемент, имеющий заданное целое значение x, т.е. определить индекс этого...
Aliska00129 Aliska00129  06.10.2019 01:02
Подготовьте список игровых обьектов и сцен перехода вашей компьютерной игры....
Strelok72 Strelok72  09.07.2019 17:20
Написать программу на паскале: даны 2 текстовых файла. определить в каком файле больше запятых...
asikpozitiv3 asikpozitiv3  09.07.2019 17:20
Ученики третьего класса собирали яблоки, первый ученик собрал x вёдер, второй собрал y вёдер, третий собрал n вёдер яблок. сколько вёдер яблок собрали ученики?...
sabinaibragimo6 sabinaibragimo6  09.07.2019 17:10
Составить блок схему и написать программу на языке программирования qbasic. дан массив а из 20 элементов. найти произведение элементов массива. результат вывести на печать....
anisinivan09p08i87 anisinivan09p08i87  03.11.2020 15:15
С вкладки МАКЕТ можно: Объединить несколько ячеек Разделить ячейку (несколько смежных ячеек) Изменить размер строк Изменить направление текста в ячейке таблицы Изменить размер столбцов...
avagimyan2002 avagimyan2002  03.11.2020 15:15
Где расположена кеш-память? в смартфоне на рабочем столе в процессоре на жестком диске в программе...

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