![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 21.05.2014
Сообщений: 13
|
![]()
Даны два числа. Найти среднее арифметическое и среднее
геометрическое их модулей. Текст программы на Pascal: var x, y, F1, F2: real; begin readln(x, y); F1 := (abs(x) + abs(y)) / 2;//Вычисляем среднее арифметическое writeln(F1); F2 := sqrt(x * y);//Вычисляем среднее геометрическое writeln('Среднее арифметическое= ', F1); writeln('Среднее геометрическое= ', F2); end. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переделать программу в Pascal | Skipper Ok | Помощь студентам | 1 | 18.11.2013 05:32 |
переделать программу из С++ в Pascal | Evelin_18 | Помощь студентам | 0 | 09.12.2012 23:49 |
Немного переделать задачу(pascal) | VaKyM | Помощь студентам | 1 | 05.01.2012 17:58 |