Разработать программу, которая выдавала бы на экране словесные представления чисел до 10 000(VBA)

Question

Информатика: Разработать программу, которая выдавала бы на экране словесные представления чисел до 10 000(VBA)

ЧеLOVEчек51534 · Accepted Answer

{ ответ дан на языке Pascal } {         Вариант a         } PROGRAM Solution(INPUT, OUTPUT); VAR   Str: STRING;   Str1: STRING;   Str2: STRING;   Str3: STRING;   TempStr: STRING; BEGIN   WRITE( Введите строку: );   READLN(Str);   Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);   Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));   Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));   WRITELN(Str2 + Str3 + Str1); END. {         Вариант b         } PROGRAM Solution(INPUT, OUTPUT); VAR...

MOGZ ответил