Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вывести список абитуриентов, имеющих в аттестате оценки только 5 https://www.cyberforum.ru/ pascal/ thread1444137.html
Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы. 4. Оценки в аттестате. 5. Признак - нуждается ли в общежитии. 6. Оценки вступительных экзаменов Список абитуриентов, имеющих в аттестате оценки только 5; N=2
Pascal После выполнения программы, в файле выдает значение NAN
Запускаю эту программу var f, g: Text; fi, result: Double; begin Assign(f, 'f.txt'); Reset(f); Assign(g, 'g.txt'); ReWrite(g); result := 1; while (Not EoF(f)) do begin
Pascal Разделить однонаправленный список целых чисел на однонаправленные списки четных и нечетных чисел https://www.cyberforum.ru/ pascal/ thread1444025.html
Разделить однонаправленный список целых чисел на однонаправленные списки четных и нечетных чисел, изменяя только указатели.
Pascal Что будет выведено после окончания работы программы? О: пределите, что будет выведено после окончания работы программы: Program a1; var a, b, x, y: integer; A: =15; B: =46; X: = a mod 10; Y: =b dub 10; If x<y Then b: =b-a Else a: =a-b; https://www.cyberforum.ru/ pascal/ thread1444004.html
Программа, имитирующая работу кассового аппарата Pascal
Требуется написать программу, имитирующую работу кассового аппара-та: пользователь в цикле вводит цену очередного товара или 0 для за-вершения ввода. Затем программа суммирует цены и начисляет скидку с общей стоимости товара по правилам: скидки нет, если общая стоимость покупки -- менее 5000 руб.; скидка равна 5%, если общая стоимость -- от 5000 до 10000 руб.; скидка ...
Pascal Через сколько месяцев выплаченная за съём сумма окажется не меньше цены квартиры? Напишите алгоритм и программу для решения задачи: Семья снимает квартиру. Ежемесячно цена растет на 10%. Если на начало года цена за меся состовляет x рублей,, а цена квартиры Y рублей,, то через сколько месяцев выплаченная сумма окажется не меньше цены квартиры? https://www.cyberforum.ru/ pascal/ thread1443988.html
Pascal Определите что будет напечатано в результате работы следующей программы https://www.cyberforum.ru/ pascal/ thread1443971.html
Определите что будет напечатано в результате работы следующей программы: Vat n, s: integer; Begin N: =1; S: =0; While n<=101 do begin S: =s+7; N:=n+1 End;
Получить последовательность по правилу Pascal
Pascal Укажите наименьшее число, в результате обработки которого автомат выдаст число 1311 Автомат получает на вход четырёхзначное число. По этому числу строится новое число по следующим правилам. 1. Складываются первая и третья,а такжевторая и четвёртая цифры исходного числа. 2. Полученные два числа записываются друг за другом в порядке возростания (без разделителей). Пример. Исходное число: 3165. Суммы: 3 + 6=9;1+5=6. Результат: 69 Укажите наименьшее число, в результате... https://www.cyberforum.ru/ pascal/ thread1443936.html Pascal Вычислить интеграл по формуле трапеций с заданной точностью https://www.cyberforum.ru/ pascal/ thread1443883.html
Интеграл f := (Cos(x - Ln(x)) Точность 0.001. По формуле трапеций. Надо удваивать к-во разбиений n, сравнивая два вычисления интеграла(Integ_1 - Integ_2), пока точность не будет 0.001 (плюс надо с использованием переменной процедурного типа) Проблема - делается только одно сравнение, точность не достигается Посмотрите свежим взглядом, что не так program Integral;
Pascal Пользуясь только операцией умножения, вычислите a^12 за четыре операции
Пользуясь только операцией умножения, вычислите a^12 за четыре операции
Pascal Подсчитать число вхождений каждого слова в текст https://www.cyberforum.ru/ pascal/ thread1443581.html
Разработать блок-схему алгоритма и составить программу обработки текстовых данных, хранящихся в произвольном файле на магнитном диске. Вид обработки данных: подсчитать число вхождений каждого слова в текст. Текстовые данные, подлежащие обработке, заносятся в файл редактором текста. В программе предусмотреть ввод с терминала имен входного и выходного (в случае необходимости) файлов, вывод на...
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
06.05.2015, 09:46 0

Найти среднее геометрическое первой и последней цифры числа - Pascal - Ответ 7603595

06.05.2015, 09:46. Показов 2526. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено footballer22 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{Используя цикл с постусловием найти среднее геометрическое первой и
последней цифры числа, которое вводится с клавиатуры.}
var
  a,x:longint;
  first,last:byte;
begin
  write('X: ');  readln(x);
  last:=x mod 10;
  repeat
    first:=a;
    a:=x mod 10;
    x:=x div 10;
  until a<=0;
  writeln('Первая: ',first,', последняя: ',last,', среднее геометрическое: ',sqrt(last*first):0:3);
  readln;
end.


Вернуться к обсуждению:
Найти среднее геометрическое первой и последней цифры числа Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2015, 09:46
Готовые ответы и решения:

Найти сумму первой и последней цифры натурального числа N
арифметическая задача Найти сумму первой и последней цифры натурального числа N

Найти сумму первой и последней цифры числа и определить, является ли она простым числом
Дано натуральное число n. Найти сумму первой и последней цифры этого числа и определить является ли...

В диапазоне Integer найти все числа, которые делятся нацело на сумму их первой и последней цифры
В диапазоне Integer найти все числа, которые делятся нацело на сумму их первой и последней цифры....

Найти сумму первой и последней цифры числа
3)Дано натуральное числo n.Найти сумму первой и последней цифры этого числа.

1
06.05.2015, 09:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2015, 09:46
Помогаю со студенческими работами здесь

Найти сумму первой и последней цифры этого числа
Дано натуральное число n. Найти сумму первой и последней цифры этого числа

Найти сумму первой и последней цифры полученного числа
Дан текст, содержащий цифры и буквы. Составить новую строку из цифр текста. Найти сумму первой и...

Найти сумму первой и последней цифры числа
найти сумму первой и последней цифры любого положительного натурального числа! Помогите!!!

Найти сумму первой и последней цифры числа
Дано натуральное число n. Найти сумму первой и последней цифры этого числа. В программе...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru