Форматирование списка. прислать сделанны файл, а не текст. вот текст : процессор память: оперативная - id844795720200302 от tarnopolska99 02.03.2020 18:06

Question

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

tarnopolska99 · Accepted Answer

Var n:integer;
a:array[1..27] of string[15]=
('один','два','три','четыре','пять','шесть','семь','восемь','девять',
'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',
'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 <> 0 then write(' ',a[n mod 10]);
writeln;
end;
end.

Пример:
N (1..99) = 46
сорок шесть

MOGZ ответил