1. Информатика
  2. Программа вычисления площади кольца,

Программа вычисления площади кольца, используя подпрограмму вычисления площади круга

katyasasha1415 katyasasha1415    3   20.05.2019 06:30    1

Ответы
teterev2003 teterev2003  13.06.2020 14:08

Код Pascal

1 const pi=3.14;
2 var n,m: real;
3 function S(r: real): real;
4begin
  5 S:=pi*r*r;
6 end;
7begin
  8write('R1='); readln(n); n:=S(n);
  9write('R2='); readln(m); m:=S(m);
  10writeln('S=',abs(n-m));
11end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
punchplz punchplz  22.10.2020 15:41
Сымсыз технологиялар түрлерін ата? Wi-F, Bluetooth, LinuxWi-Fi,WIMAX, BluetoothWi-Fi, WIMAX, iOS​...
straikerfba straikerfba  24.03.2021 17:02
Нужно решить две лёгкие задачи по информатике, даю всё что есть - Сам не могу додуматься и лень смотреть в инете. Решите задачу используя оператор while: y=3x-4 (необходима...
Йфячы Йфячы  02.12.2020 17:40
Написать программу, которая считает количество чётных и положительных цифр введённого числа.(Python,используя цикл for и while и комментарии к каждой строке кода)...
Dashazavalish Dashazavalish  02.12.2020 17:40
Составьте таблицу истинности логического высказывание (¬ A V ¬ B) & ( A V B ) Составьте таблицу истинности логического высказывание ¬A&¬ (BVC)...
Dengires Dengires  02.12.2020 17:40
Program1.pas(13) : Нельзя преобразовать тип real к integer. Какая здесь ошибка ? program arif; var a,b,c:integer; d:real; begin writeln( Введи 2 числа ); readln(a,b); c:=a+b;...
slarina171 slarina171  02.12.2020 17:40
309. Классы информационных систем для автоматизации бизнеса. Укажите неактуальный вариант. а. ERP б. БИ c. SCSI d. HRM е. СКМ 310. BI - это а. Бизнес-аналитика б. Бизнес Интеллект...
AbstergoAlexander AbstergoAlexander  02.12.2020 17:40
Задание 1 Даны высказывания: А = {2+3=5}, B = {2*2=4}. Определить истинность высказываний:А, В, А&В, ¯А, ¯В, АvВ, А→В, А↔В. Задание 2 Постройте отрицание для высказываний:...
Znatokkekgg Znatokkekgg  02.12.2020 17:40
Написать доклад на одну из тем: 1) “Языки программирования”, 2) “Среда программирования” Требования к выполнению работы: Работа выполняется в редактора MS Word Объем работы...
nikitasemenov3 nikitasemenov3  22.10.2021 01:05
1 )Тима задумал число от 1 до 125. Надо отгадать число за меньшее число попыток задавая вопросы типа отвечал да или нет . За сколько вопросов вы боретесь отгадать число ?...
gnezdozatokaиванка gnezdozatokaиванка  22.10.2021 01:09
Сіз Интернет арқылы досыңызға 15 Мбайт файлды жібергіңіз келеді. Сіздің жүктеу жылдамдығы – 5 Мбит/с және 3 Мбит/с болған жағдайда, бұл хатты жіберуге қанша уақыт жұмсалады?...

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