Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Паскаль: 1. Составить программу вычисляющую площадь кольца, заключенного между радиусами R1 и R2
Источник: urokam.net
Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен
Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
КАК НАРИСОВАТЬ ТРЕУГОЛЬНИК В КОНСОЛИ C# | C# ДОМАШНИЕ ЗАДАНИЯ | #5
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
- Обратная связь
- Правила сайта
Источник: www.soloby.ru
Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга
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;
Как ChatGPT пишет вместо меня код на c# именно для конкретной задачи
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.
Источник: murnik.ru