Предмет: Информатика,
автор: skarpioNn
1. Напишите программу, запрашивающую у пользователя три разных положительных числа и находящую среднее из них.
2. В заданной последовательности символов поменять местами первый символ с последним символом .
Помогите пожалуйста!
Ответы
Автор ответа:
0
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
END.
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
END.
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Українська мова,
автор: tatatvaatat
Предмет: Математика,
автор: volik5
Предмет: Литература,
автор: shuras
Предмет: Литература,
автор: irinochka2000