Var a,b,sg:real;
Begin
writeln('Введите два неотрицательных числа a и b');
readln(a,b);
sg:=(sqrt(sqr(a*b)));
writeln('Среднее геометрическое чисел a и b ',sg);
<span>end.</span>
Шаг
шаг
прыжок
поворот
поворот
поворот
шаг
шаг
прыжок
поворот
поворот
поворот
шаг
шаг
прыжок
поворот
поворот
поворот
шаг
шаг
прыжок
Pascal ABC Из слова "вертикаль" путем вырезок и склеек его букв получить слова "тир" и "ветка"
<span>Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет" Pascal ABC </span>
<span>Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка" Pascal ABC </span>
Pascal ABC Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки
<span>Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" Pascal ABC </span>
Pascal ABC Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Pascal ABC Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
<span>Из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" Pascal ABC </span>