Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
agg1
19.11.2020 00:57 •
Информатика
1)для чего предназначена область рисования в paint? опишите её структуру2)для чего предназначена панель инструментов в paint ? опишите её структуру3)для чего используется основной цвет и цвет фона?
👇
Увидеть ответ
Открыть все ответы
Ответ:
11Аслан11
19.11.2020
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.
4,5
(55 оценок)
Ответ:
taniataolia
19.11.2020
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.
4,6
(71 оценок)
Это интересно:
В
Взаимоотношения
29.12.2020
Как игнорировать своего парня: 5 советов для девушек, которые хотят сохранить свою независимость...
С
Стиль-и-уход-за-собой
26.11.2020
Как сделать боб каре как у Пэрис Хилтон...
К
Кулинария-и-гостеприимство
31.05.2023
Как приготовить банановый смузи без блендера: простые и эффективные методы...
Д
Дом-и-сад
26.01.2022
Как выложить пол керамической или керамогранитной плиткой: советы и рекомендации...
27.05.2020
Как добиться ясности ума: советы от экспертов...
З
Здоровье
14.01.2023
Очистка организма от кокаина: научно проверенные методы...
К
Компьютеры-и-электроника
09.10.2022
Как сделать стекло в игре Minecraft: подробный гайд...
К
Кулинария-и-гостеприимство
28.09.2021
Шаг за шагом: Как пользоваться штопором и открыть бутылку вина...
С
Стиль-и-уход-за-собой
27.05.2021
Как предотвратить врастание волос после эпиляции...
10.01.2022
10 советов, как повзрослеть после совершеннолетия и принять ответственность за свою жизнь...
Новые ответы от MOGZ: Информатика
borik7777
19.11.2022
Отметьте команды, которые входят в СКИ Рисователь. линия в точку(х, у) линия к(х, у) линия(х1, у1, х2, у2) отрезок(х1, у1, х2, у2) сместиться в точку(х, у) в точку(х, у)...
k19745
30.08.2022
Написать программу вывода на экран натуральных чисел от 1 до 100 Pascal заранее...
oksanakrasilnikova
24.06.2021
N= 32x40x48 (всего символов) i = 8 (объём 1 символа) найти: i (информ. объём)...
ksimonova196
24.06.2021
Оперативная информация может храниться: 1-в книгах; 2-на видеокассетах; 3-на компакт-дисках; 4-в памяти человека; 5- в газетах и журналах...
гуфиn
15.01.2020
Рассуждение, которое построено в точности по данной схеме и обладает свойством: в нем все посылки истинны, а вывод ложен....
IamPrincess5
18.04.2020
Чем грозят логические ошибки в программе? 1) Пустой лист(линий не будет) 2)неправильный чертёж 3)поломка устройства 4)отказ выполнять команду ...
DazaOtaku
10.01.2022
Информатика 10 класс решить Паскаль ...
mazurenkoella
10.02.2023
ЗНАТОКИ ПИТОНА Вывести на экран циклом пять строк из нулей, причем каждая строка должна быть пронумерована; 2. Посчитать сумму числового ряда от 0 до 14 включительно. Например,...
manyna4
28.03.2023
Даны два высказывания: А = “2 х 2 = 4”, В = “2 х 2 = 5”. Очевидно, что А=1, В=0. Определите значение выражений...
asyazakharchenko3011
29.12.2020
У выражение и вычислить его значение...
MOGZ ответил
Мини-сочинение на тему : где прячется настроение?...
1) реши с счётных палочек. рыбак поймал 30 окуней и разложил их поровну...
Вмассиве r (5x5) поменяйте местами первую и последнюю строки....
Как написать 16 февраля работа на языке...
Несколько учеников стоят в очереди в школьных буфет. перед каким-то учеником...
На тему признание в любви родному человеку...
Можете плз казахский 5 класс со словом қоршаған нужно фонетикалық...
Краткая запись книга состоит из двух частей.в первой части 32 страницы,...
Должна ли безопасность общества быть выше интересов отдельного гражданина...
2/3*1/5+(3*1/4-2/3)/3-(25/18-17/36)/65/18...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.