1. Информатика
  2. Составить программу позволяющую

Составить программу позволяющую из двух данных чисел большее заменить удвоенным произведением этих чисел ( паскаль,9 класс)

1337zezar1 1337zezar1    2   18.04.2019 22:57    0

Ответы
ИльяБлажков ИльяБлажков  08.06.2020 00:04

Var a, b:Integer ;

Begin

Write('a=') ;read(a) ;

Write ('b=') ;read(b) ;

If a>b then a:=2*a*b;

If b>a then b:=2*a*b;

Write(' a=',a,' b=', b) ;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
angelina2003po angelina2003po  07.04.2021 20:46
1. Запишите в обычном виде выражения, представленные в соответствии с правилами языка ПАСКАЛЬ:а)(x and y) or zб)sqr((a + b)/2)в) 15 * sqrt(a/a-b))​...
хххххх15 хххххх15  23.05.2019 10:40
Основные части компьютера 5 класс информатика номер 14 ! во вторник 18 числа завтра! я уже написала принтер колонки монитор клавиатура дисковод и ещё там чтото в процессоре надо писать...
henriksenkids henriksenkids  31.05.2019 12:30
Написать программу которая может вычислить стоимость покупки с учетом скидки 10% есть сумма покупки больше 1000р...
ANGELINA69Z ANGELINA69Z  21.03.2021 19:46
Построить таблицу истинности: (А+В) - (А*В) - (А- B)...
victoriaanna1 victoriaanna1  30.05.2019 10:30
Какое из четырех чисел,представленных в разных системах счисления являются наибольшими и наименьшими.101101 в двоичной,64 в восьмеричной,64 в десятичной и 3а в шестнадцатеричной...
bogdanserebria bogdanserebria  30.05.2019 10:30
Нужны формулировки: что такое данные графические, данные текстовые, данные числовые? ....
Rina12346 Rina12346  30.05.2019 10:30
Раставьте между цифрами знаки арифметических действий (плюс,минус,умножение,деление) и, если надо,скобки, чтобы ответ оказался равным 1. 1 2 3=1 1 2 3 4=1 1 2 3 4 5=1 1 2 3 4 5 6=1...
ропчан ропчан  23.04.2021 14:07
Розташуйте події процесу підготовки проекту для реалізації в середовищі Скретч у хронологічній послідовності: а) створити алгоритм і подати його словесно або у вигляді схеми б) задати...
МистрКрутой11 МистрКрутой11  23.04.2021 14:07
Привет у меня какая-то ошибка но я не знаю какая G = 6.67 * 0.00000000001 g = 9.807 P=input( Введите название планеты ) R = int(input( Введите радиус планеты в м )) M = (g * R * R)...
Георгий20004 Георгий20004  23.04.2021 14:04
Даны три различных вещественных числа. Не используя полный условный оператор, определить: а) наибольшее из них; б) наименьшее из них.​с++...

Популярные вопросы