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


Nika2006klubnika
04.02.2020 12:30

Онлайн сканворд «Основы Web-дизайна_1»


Онлайн сканворд «Основы Web-дизайна_1»

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
vika200920001
vika200920001
27.04.2022 06:43
задание Найдите информационный объём сообщения (i = 16 бит / символ): с дано2 задание Файл передаётся со скоростью 384 КБайт / сек в течение 5 секунд. Определите информационный...
galina1809
galina1809
30.11.2020 01:39
Какие команды присваивания составлены правильно: Выберите один или несколько ответов:a. 6f := d *2b. a:=8c. а1:= b+2d. a + b := 6 e. sqr(x) := sqr (а)...
Gtfdgrrgd
Gtfdgrrgd
19.03.2022 03:11
Как выбирают имя таблицы? Выберите один ответ: a. оно должно давать краткое описание о содержащейся в ней информации. b. оно должно давать представление о содержащейся в...
tjomiki
tjomiki
17.01.2021 02:49
СОСТАВИТЬ ПРОГРАММУ 1)повторение теории по программированию: разобрать теорию и составить программу: сформировать массив из 50 чисел и подсчитать сумму и количество элементов...
1828384858
1828384858
08.01.2023 21:16
Проверьте,делится ли сумма произвольных трех чисел,введенных с клавиатуры,на последнее из них без остатка. в ( quick basic ) решить...
плиз168
плиз168
02.07.2022 00:33
Информатика, Войдите вWORD и научите писать и рисовать по шагово​...
lena808608
lena808608
20.07.2022 00:23
Сопоставьте и напишите по порядку типы данных и принимаемые значения. 1) 2) 3) 4) Типint()float()str()Вool()Название типаСтроковые ЛогическиеЦелые числаДействительные числа...
Vova50915091
Vova50915091
16.01.2021 21:31
проаналізуйте кліматичні діаграми (див.мал) порівняйте їхні показники з даними таблицями...
Лоликус
Лоликус
16.03.2021 22:04
Y=-x⁴+2x³-2x+1 Исследовать функции и построить графики...
hodos10
hodos10
13.05.2020 07:23
Решили умножение многочленов группировки А2...
Ответ:
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 оценок)
Ответ:
anonim198
26.10.2022 10:15
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-бота