Ответы на вопрос:
Program prog; uses crt; var s,r: real; begin write('радиус круга = '); readln(r); if r> 0 then begin s: =pi*sqr(r); writeln('s = ',s: 0: 3); end else writeln('неверный радиус'); end.
program z_1;
var i,a,s: integer;
begin
s: =0;
for i: =1 to 5 do begin
writeln ('введите',i,'-е число');
readln (a);
s: =s+a;
end;
writeln ('среднее арифметическое чисел равно',s/5);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Alina10496926.07.2020 07:47
-
nurkenalmazbek07.03.2020 14:30
-
tonplaton22.11.2020 05:05
-
premium7903.06.2023 16:18
-
СвежийГусь29.03.2022 17:13
-
coldon07.02.2022 11:35
-
so4tfx05.12.2021 11:36
-
GFGFDGDF21.06.2023 18:00
-
cherryybommb24.03.2023 02:16
-
крист3407.04.2021 01:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.