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


risha5239
09.09.2020 03:07

Есепті шешу кезеңдері нешеу?

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
karo35
karo35
06.09.2022 12:55
Приведите пример виртуальной реальности и опишите его назначение.Пример: Назначение:2. Приведите пример дополнительной реальности и опишите его назначение.Пример: Назначение:3. Опишите...
Neznau27
Neznau27
17.02.2021 10:23
решить задание на пайтон Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 26, запись которых в троичной системе счисления оканчивается на 22?...
araitokbasova
araitokbasova
23.07.2020 19:06
, с вопросами =)) 1) почему необходимо иметь общие графические форматы для различных приложений?2) какой формат разработан специально для хранения фотографий?3) когда целесообразно...
Any0070
Any0070
23.07.2020 19:06
. На соревна-х КВН ком-да получает 5 оценок от разных судей. Написать программу для вычисления среднего команды...
23LOLKEK
23LOLKEK
01.03.2022 15:23
Сравните электронные таблицы и таблицы реляционной базы данных: что в них общее? в чём основное различие?...
bviktoria4567
bviktoria4567
01.03.2022 15:23
Напишите на языке с++! 1) ввести число. если оно неотрицательно (больше 0), вычесть из него 10, иначе – прибавить к нему 10 2) ввести 2 числа. если их произведение отрицательно, умножить...
Arhci43345
Arhci43345
25.02.2023 09:33
8. В какой ситуации искусственные цветы и муляжи фруктов могут исполь- зоваться в качестве моделей — «заместителей» настоящих цветов и фруктов?Какие свойства и отношения объектов отражают...
missiskitten
missiskitten
02.09.2021 11:34
Хотя бы одно Задание выполняется в кумире))...
DanilPak2002
DanilPak2002
06.01.2023 12:47
Найти значение выражения y=a4x^4+a5x^5+а2х^-2+а3х^-3,где ai и x вводятся с клавиатуры вычесление степени оформить в виде процедуры(Pascal)...
Arkadop
Arkadop
20.11.2020 16:56
Нужно написать фантастическое сочинение по теме скрещивания просто срестить кого нибудь и написать для чего он нужен,что он сможет...
Ответ:
3866
01.01.2022 01:22
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
0,0(0 оценок)
Ответ:
dnsadlerqwer
01.01.2022 01:22
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота