37

1. Напишите программу, запрашивающую у пользователя три разных положительных…

21 марта 2023

1. Напишите программу, запрашивающую у пользователя три разных положительных числа и находящую среднее изних.

категория: информатика



35

Program asd; USES crt; var result: real; a,b,c,i: integer; BEGINclrscr; Writeln ('Vvedite 3 chisla polowitelnyx: '); Readln (a,b,c); If (a<0) or (b<0) or (c<0) then Writeln ('Error! ') elseResult: =(a+b+c) /3; Writeln (Result); END.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...