tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Большее из 2 вещественных возвести
Большее из 2 вещественных возвести в квадрат, меньшее в куб
Polina011020040
1 06.07.2019 20:40
1
Ответы
dashaklimova01
02.10.2020 21:34
Var a, b: Real;
begin
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b); if a > b then
begin
a := a * a;
b := b * b * b;
end
else
begin
a := a * a * a;
b := b * b;
end;
writeln('a = ' + a);
writeln('b = ' + b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Katya17507
22.11.2020 16:01
Составить кроссворд, используя определения: компьютер, информация, данные, программа, Клавиатура, Мышь, Трекбол, планшет, Сканер, камера, Микрофон, Джойстик, Монитор,...
кристина2156
26.05.2020 23:07
Які пристрої використовують для введення та видення даних? ...
Агаисмаил1
26.05.2020 23:07
от вас зависит моя оценка за четвярть 7 класс от вас зависит моя оценка за четвярть 7 класс >...
sannikova04
26.05.2020 10:00
Абсолютной ссылкой является: $C$4 *4^4 B4 %K4...
Nikitymba
26.05.2020 23:07
Режим Таблиця СУБД Ассеss дозволяє: А) безпосередньо вказувати параметри всіх елементів структури таблиці; Б) додавати до таблиці поля зі списку полів різних типів;...
anisa2004god
04.10.2019 14:20
Скорость передачи данных через adsl-соединение равна 256000 бит/c. передача файла через данное соединение заняла 51 секунд. определи размер файла в кбайт....
vikaganzha
04.10.2019 16:10
If j r then j=r-2 else r=r-2. чему равны j и r после выполнения оператора , если первоначально j=3 r=3...
кристина2164
04.10.2019 16:10
Изобразите в декартовой прямоугольной системе координат область, в которой и только в которой истинны следующие логические выражения: а)(x =-1) и (x =1) и (y =-1) и...
KerimovaLuiza919
04.10.2019 16:10
Нарисовать таблицу наиболее распространённых типов файлов и их ! help me !...
boginyanatasha
04.10.2019 16:10
If a b . then if b 0 then c=a,else c=b . else c=0 чему равно с , если а=5, b=3...
Популярные вопросы
Кто открыл восточную африку? бартоломео диаш, марко поло или васко...
2
Imagine you are lindane. write a letter to mother and answer the...
1
1)первое слагаймое 31096, второе слагаймое больше первого на 3150...
2
6.аминокислоты — это вещества, образующие: а) углеводы; б) жиры;...
1
Допишіть рівняння реакцій: ni+h2so4 k+h2o cuso4 + hg...
1
Изменить по лицам каяться маяться надеяться клеить...
2
Составьте схемы образования ионной связи между: а)алюминий и хлор...
1
Подготовить характеристику главной героини повести пушкина барышни-крестьянки...
2
По ! первая,вторая и третья трубы, работая отдельно, наполнят бассейн...
3
Діалог між вчителем та учнем про сьогочасні цінності...
3
begin
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b); if a > b then
begin
a := a * a;
b := b * b * b;
end
else
begin
a := a * a * a;
b := b * b;
end;
writeln('a = ' + a);
writeln('b = ' + b);
end.