Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
АэлинкаМалинка
28.02.2020 04:36 •
Другие предметы
Какие из перечисленных положений соответствуют программе правительства, сформированного в марте 1917 г.? Найдите в приведенном ниже
Ответ:
lauraumirzhan55
06.06.2020 04:09
На языке pascal;
program main;
var a, b: integer;
begin
readln(a, b);
if a>b then
begin
a:=a*a;
b:=b*b*b;
writeln('a=',a,' b=',b);
end
else
begin
if a begin
a:=a*a*a;
b:=b*b;
writeln('a=',a,' b=',b);
end
else
writeln('Введены равные числа');
end;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
Ники67
21.07.2022 18:02
2. Здоровый образ жизни – это…...
licialime00
10.10.2022 03:50
За сколько недель человек умирает от голода?...
rlicSosanex
27.09.2022 07:29
Начало и конец бытия,есть ли он?...
зуляжансая86
12.03.2023 00:50
Решить систему уравнений 2х+2у=-2 -10х+5у=-0,5...
пингвин38
20.02.2020 01:30
Дано уравнение сферы (х-6)^2+у^2+(z+5)^2=25 найти координаты центра сферы, радиус и площадь поверхности...
артем204567
12.03.2023 00:50
Брат и сестра чистили к ужину картофель.брат очистил 18 картофелин,а сестра на 3 картофелины больше.сколько картофелин они очистили?...
Няшня
12.03.2023 00:50
Два угла четырёхугольника, вписанного в окружность, равны 78 и 87. найдите градусную меру большего из оставшихся углов четырёхугольника....
prestigpad
12.03.2023 00:50
Каждые 2 города соединяет только 1 дорога сколько всего дорог если городов 5...
ArtemTony
19.11.2020 21:28
Придумайте три предложения, одно с сочинительным союзом, второе с подчинительным союзом, третье из частиц кроме не и ни...
563836
12.03.2023 00:50
Какие вещества представлены биологическими молекулами в клетке?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
program main;
var a, b: integer;
begin
readln(a, b);
if a>b then
begin
a:=a*a;
b:=b*b*b;
writeln('a=',a,' b=',b);
end
else
begin
if a begin
a:=a*a*a;
b:=b*b;
writeln('a=',a,' b=',b);
end
else
writeln('Введены равные числа');
end;
readln;
end.