Войти
Регистрация
Спроси ai-bota
Динка105
09.02.2021 10:21
Составьте программу на Паскаль, которая, введенное с клавиатуры число, возведёт в куб, если оно положительное, если отрицательное найдет его модуль, а если оно будет равно 0, то прибавить к нему 10.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
khodha
09.11.2022 16:11
Python Считайте целое число N. Создайте список из N элементов и заполните его чётными числами: 0, 2, 4, ... Выведите все элементы этого списка. Каждое число нужно вывести...
Blackrabbit300401
13.11.2020 17:26
Напишите программу для Чертежника в кумире стандарт на любую тему. Критерии: 1. наличие текста 2. использовать цикл повтори н раз 3. использовать три разные программы 4. Рисунки...
mmmmmaaaaruuu69
04.06.2022 23:47
Для чого в середовищі програмування Lazarus потрібно розміщувати полотно до іть будь ласка ів...
alese4kas94p0cen0
10.05.2023 13:23
Дано арифметическое выражение вида S = 2*X1 + 3*X2 / (X2 + 3*X1) / (X2 + 25*X1).Напишите программный код , который позволит посчитать количество операций произведения в приведённом...
madamnowiczkai
15.12.2022 13:59
1) Выберите, что является высказыванием: а) Почему это является высказыванием? б) Посмотрите в тетрадь! в) Карлсон — летучая морская рыба. г) Какого цвета Солнце? 2)Выберите,...
samininav1
12.02.2020 23:40
Сколько школьных учебников емкостью 367 кбайт можно разместить на компакт сd диске, если мы знаем, что объём этого диска равен-650 байт?...
бах8
04.03.2022 00:35
Объяснить, что будет напечатано программой program e3; var a, b: integer; begin read(a,b); writeln(a, b, a); end. исходные значения а и b: 2 и 0?...
AngelinaMois
04.03.2022 00:35
Сколько,примерно,из графических файлов по 3мб поместятся в пустую флешку объёмом 2 гб?...
alinkamalina04
02.12.2022 00:04
Как обозначается диапазон ячеек?...
ririf
07.12.2020 11:00
Разработать программу применения принципов управления – экономических, социально-психологических, организационно-распорядительных в процессе управления коллективом в ветеринарной...
Ответ:
mrmolchanov201
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-бота