Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vecronika54
16.11.2021 06:02 •
Информатика
1)составьте программу для вычисления y=x, если x положительное число . 2)составьте программу для вычисления объема куба со сторонами от 5 до 20
Показать ответ
Ответ:
mrANONIM11
05.10.2020 16:01
Var
X:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Write('Y = ',X)
End.
Var
a:integer;
Begin
For a:= 5 to 20 do
WriteLn('V(',a,') = ',a*a*a)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
almirashagieva
03.02.2020 08:11
В одной из кодировок Unicode каждый символ кодируется 7 битами. Вова написал текст (в нём нет лишних пробелов): «В озере плавали разные рыбы: окунь, щука, камбала, лещ». Ученик...
Катя111111177796
20.05.2021 01:26
Записать на Тurbo Рascal алгебраическое выражение 3...
bertashka
11.11.2021 03:08
Решите уравнение х2 =5cos(x-1), используя табличный процессор. Язык программирования Phyton....
ironthewolf72
30.03.2023 18:44
1. Вспомните, какие изменения в жизни славян возникновению государства...
marinnka09
12.01.2021 02:55
Умоляю, объясните как это делать. Как называется тема, что нужно знать для решения. Совсем ничего не понимаю Выберите два исходных вещества, взаимодействию которых соответствует...
satursacha
07.06.2022 02:30
Кто тот получить и типо лучший ответ 5.0 Дано слово МАРТЫШКА и месторасположение курсора в нем. Какое слово вы получите после нажатия указанных ниже клавиш?...
GGNOOB777
25.08.2022 20:43
Складіть таблицю розвиток Франції в 1594-1715 рр. 1король,роки 2глава його правління. уряду 3зовнішня політика4 внутрішня політика...
bropomogi
14.01.2023 04:48
УМОЛЯЮ ТРЕТИЙ РАЗ АД=х, ДВ = х+6, ВЕ=8, ДЕ=10 и АС=15 , ДЕ||АС, найти надо Х...
A1my
08.02.2023 14:42
Составь и запиши выражения по таблице. Найди их значения...
Юли009
11.01.2020 12:09
Распределите свойства простых веществ-галогенов по группам. Фтор Хлор Бром 1. Получают только путем электролиза 2. Один из менее активных галогенов 3. Красно-бурая жидкость 4....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
X:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Write('Y = ',X)
End.
Var
a:integer;
Begin
For a:= 5 to 20 do
WriteLn('V(',a,') = ',a*a*a)
End.