М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lolshik009
lolshik009
25.03.2021 13:10 •  Информатика

Напишите процедуру, которая выводит переданное ей число прописью. например, 21 - двадцать один язык паскаль

👇
Ответ:
AsiMy
AsiMy
25.03.2021
 procedure p(x:integer; var st:string);
 type
        name = array[0..9] of String[50];
      const
        s1 : name = (' ноль ',' один ',' два ',' три ',' четыре ',' пять ',' шесть ',' семь ',' восемь ',' девять ');
        s2: name = (' ',' десять ',' двадцать ',' тридцать ',' сорок ',' пятьдесят ',' шестьдесят ',' семьдесят ',' восемьдесят ',' девяносто ');
        s3: name = (' ',' сто ',' двести ',' триста ',' четыреста ',' пятьсот ',' шестьсот ',' семьсот ',' восемьсот ',' девятьсот ');
        s4 : name = (' ',' одиннадцать ',' двенадцать ',' тринадцать ',' четырнадцать ',' пятнадцать ',' шестнадцать ',' семнадцать ',' восемнадцать ',' девятнадцать ');
      var
        s,d,e : Integer;
begin
    s:= x div 100; x:=x mod 100;
    st:=s3[s];
    d:= x div 10; e:=x mod 10;
    if (d=1) and (e<>0) then st:=st+s4[e]
                         else st:=st+s2[d]+s1[e];
end;
var x:integer; st:string;
 Begin
     Write('Введите число [0..999] :');
     Readln(x);
     p(x,st);
     writeln(st);
 End.

Пример:
Введите число [0..999] : 714
семьсот четырнадцать
4,8(12 оценок)
Ответ:
Stefan123005
Stefan123005
25.03.2021
Procedure P(A:integer);
Var
   B:byte;
   S,Z:string;
Begin
if A = 0 then Write('Ноль')
else
   Begin
   if A < 0 then
      Begin
      Z:='минус ';
      A:=-A;
      End;
   B:=A mod 100;
   if B div 10 = 1 then
      Case B mod 10 of
      0:S:='десять';
      1:S:='одиннадцать';
      2:S:='двенадцать';
      3:S:='тринадцать';
      4:S:='четырнадцать';
      5:S:='пятнадцать';
      6:S:='шестнадцать';
      7:S:='семнадцать';
      8:S:='восемнадцать';
      9:S:='девятнадцать';
      End
   else
      Begin
      Case B mod 10 of
      1:S:='один';
      2:S:='два';
      3:S:='три';
      4:S:='четыре';
      5:S:='пять';
      6:S:='шесть';
      7:S:='семь';
      8:S:='восемь';
      9:S:='девять';
      End;
      Case B div 10 of
      2:S:='двадцать '+S;
      3:S:='тридцать '+S;
      4:S:='сорок '+S;
      5:S:='пятьдесят '+S;
      6:S:='шестьдесят '+S;
      7:S:='семьдесят '+S;
      8:S:='восемьдесят '+S;
      9:S:='девяносто '+S;
      End;
      End;
      Case (A div 100) mod 10 of
      1:S:='сто '+S;
      2:S:='двести '+S;
      3:S:='триста '+S;
      4:S:='четыреста '+S;
      5:S:='пятьсот '+S;
      6:S:='шестьсот '+S;
      7:S:='семьсот '+S;
      8:S:='восеьсот '+S;
      9:S:='девятьсот '+S;
      End;
   WriteLn(Z+S);
   End;
End;
Var
   A:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
P(A);
End.
4,6(30 оценок)
Открыть все ответы
Ответ:
syngalox420
syngalox420
25.03.2021
1.
Begin
 Writeln('Привет!');
 Writeln('Меня зовут Саша!');
 Writeln('Я студентка 2-ого курса начального образования!');
 Writeln('Я будущий учитель младших классов...');
end.

2.
var n:Integer;
Begin
 Read(n);
 Writeln('Квадрат =',n*n);
end.

3.
var a:Integer;
Begin
 Read(a);
 Writeln('S = ',a*a);
 Writeln('P = ',4*a);
end.

4. var n:Integer;
   Begin
     Read(n);
     Writeln(n+10);
  end.

5. var a,b:Integer;
   Begin
     Read(a,b);
     Writeln(' S = ',a*b);
     Writeln(' P = ',2*(a+b));
   end.

6. var a,b,c:Integer;
   Begin
     Read(a,b,c);
     Writeln('Сума = ',a+b+c);
   end.
4,8(11 оценок)
Ответ:
kanfetas
kanfetas
25.03.2021
Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.
4,4(21 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ