Войти Регистрация Спроси ai-bota

Есть задача: https://imcs.dvfu.ru/cats/main.pl?f=problem_text;cid=3031104;pid=2572635. Также есть код на Python3: https://ideone.com/v5M6uX. Нужно вставить алгоритм нахождения "максимально крутого числа".
Надеюсь на вашу

Показать ответ

Ответ:

Arkadysh

13.06.2021 11:55

Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.

2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.

3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.

0,0(0 оценок)

Ответ:

Vilhctein1989

13.06.2021 11:55

Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.

2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.

3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

di23di

25.02.2023 18:14

Заполни таблицу. Выбери правильный ответ.ІНШІИМЯТипЗначокРазмерфайлаDatabase1Total Commander 7.50a - INTEL MATAM HAIFAФайлы выделение Навигация Сеть FTP Бид ВкладкиКонфигурация...

КсЮшЕнЬкА1102

30.05.2022 19:11

Развитие программного обеспечения краткий конспект ...

Дашакот2345681

23.06.2022 07:30

Решить задачи в Бейсик 1. Найти сумму элементов массива a(10) кратных 4 2. Найти произведение тех элементов массива B(15),которые положительные и оканчивается на 4 3....

КастрюлькаПик

15.02.2022 12:35

Создать БД в Access База болезней: название, симптомы, процедуры, перечень рекомендуемых лекарств с указанием требуемого количества. База медикаментов: название, формы...

Alihan184

28.10.2020 18:53

решить кроссворд про реляционные базы данных...

Raud1

04.03.2022 22:22

А=Принтер -устройство вывода информации В= ксерокс - устройство хранения информации С= микрофон- устройство ввода информации D- блок питания - устройство обработки информации....

Andriyko2033

20.05.2021 10:04

Сойлемды аяктаныздарМодельдеу -Бояу-Жарыктандыру-Түсіру-Рендеринг-...

Superniolay

01.05.2021 01:40

Из каких частей состоит программа SketchUp?...

маша5002

13.07.2020 22:26

1. Зачем разработали программы распознавания документов, если можно вводить тексты с клавиатуры? 2. Каковы преимущества компьютерных словарей перед обычными словарями...

kamilaraeva

17.07.2022 01:01

2 курс основы алгоритмизации и программирования, составить программный код на языке с# по этой задаче:Вычислить сумму положительных значений функции y=3²*tgx для 19...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку