Войти
Регистрация
Спроси ai-bota
andreygaevskiy
18.12.2022 06:13
Составьте программу на Паскаль, которая, введенное с клавиатуры число, возведёт в куб, если оно положительное, если отрицательное найдет его модуль, а если оно будет равно 0, то прибавить к нему 10.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
flamerplay123
25.05.2020 15:10
На языке pascal сформировать массив из 5 целых чисел, выбранных случайным образом от 0 до 50...
228dflbr
27.03.2020 21:22
Какое количество книг можно сохранить на жёстком диске вашего компьютера ?...
lainzord
07.06.2020 12:23
Pascal. составить программу для вычисления количества положительных элементов матрицы q(4х9)....
slava31012
08.11.2022 15:08
C++ написать программу ! do while для новичков ! дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. необходимо определить, равны ли...
Dilnaz200301
28.12.2021 16:43
Дан массив, содержащий 218 положительных целых чисел, не превышающих 1500. необходимо удвоить те элементы этого массива, которые меньше удвоенного минимального элемента,...
ВладиславПрокофьев
10.02.2021 17:49
Ть будь ласка з , зараз вивчаємо алгоритми з розгалуженнями. задали таблицю додому(4,5 пункти доробити), іть, клас...
alyaardasenova
11.03.2022 12:21
1. в куб со стороной r плотно помещено 8 шаров. какой процент от поверхности куба составляет поверхность одного шара ? 2. задано трехзначное число. найти разницу между...
milenakotik44
26.01.2021 13:55
У исполнителя Бета две команды, которым присвоены номера: 1) прибавь 2; 2) умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Бета увеличивает...
muy5
13.10.2022 17:13
Напишите программу на Паскале: С клавиатуры вводятся два произвольных числа. Компьютер выдает на экран сообщение о том, какое из чисел больше, либо они равны. Используйте...
thesketchyoup081qt
25.03.2021 03:27
Во Выберите верные утверждения. Для безопасной работы в сети Интернет рекомендуется: Укажите один или несколько правильных вариантов ответа отправлять персональную...
Ответ:
Gok67
11.10.2020 16:45
program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a
Объяснение:
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота