Составить программу на языке паскаль для преобразования цифр в слова.

var

  c: integer;

begin

  write('введите цифру '); readln(c);

  case c of

      0: writeln('ноль');

      1: writeln('один');

      2: writeln('два');

      3: writeln('три');

      4: writeln('четыре');

      5: writeln('пять');

      6: writeln('шесть');

      7: writeln('семь');

      8: writeln('восемь');

      9: writeln('девять');

  end;

end.

 

так что ли?

конечно, мы постоянно используем знания полученные в школе. это, например, элементарная прикладная : каждый совершает большие и маленькие покупки, распоряжается каким-то количеством денег, считает, вычисляет скидку на товар. взрослый человек может взять кредит или затеять ремонт, и тогда уж на каждом шагу. точные науки развивают логику и смекалку, которые мы можем применить и в отдыхе, и в работе. гуманитарные уроки нам поддержать разговор или подскажут, как себя вести в какой-то ситуации, если читал или слышал о ней ранее.

1. Написать программу, табулирующую функцию f(x)=1/sin(x)+k*ln(x-a) в заданном пользователем диапазоне с указанным шагом. Для тех значений x, в которых функция не существует, вместо значения f(x) выводить прочерк. При решении задачи использовать цикл REPEAT … UNTIL.

2. Написать программу, определяющую максимальное значение в заполненном пользователем массиве вещественных чисел размерностью N среди элементов, значение которых находится в указанном диапазоне [A, B]. Массив вывести на экран.

3. Написать программу, подсчитывающую сумму элементов в заполненной пользователем квадратной целочисленной матрице размерностью NxN, находящихся ниже основной диагонали. Исходную матрицу вывести на экран.