Розміщена на носіях велика кількість даних однакової структури з конкретної галузі - це
фізична
комп'ютерна
програмна
логічна
114
380
Ответы на вопрос:
Program task5; var v: string; ch,p: integer; begin writeln('введите число'); readln (ch); case ch of 1: v: = ('один'); 2: v: = ('два'); 3: v: = ('три'); 4: v: = ('четыре'); 5: v: = ('пять'); 6: v: = ('шесть'); 7: v: = ('семь'); 8: v: = ('восемь'); 9: v: = ('девять'); 10: v: = ('десять'); 11: v: = ('одиннадцать'); 12: v: = ('двенадцать'); 13: v: = ('тринадцать'); 14: v: = ('четырнадцать'); 15: v: = ('пятнадцать'); 16: v: = ('шестнадцать'); 17: v: = ('семнадцать'); 18: v: = ('восемнадцать'); 19: v: = ('девятнадцать'); 20: v: = ('двадцать' ); 21,22,23,24,25,26,27,28,29: begin p: =(ch mod 10); v: = ('двадцать' ); end; 30: v: = ('тридцать '); 31,32,33,34,35,36,37,38,39: begin p: =(ch mod 10); v: = ('тридцать' ); end; 40: v: = ('сорок'); 41,42,43,44,45,46,47,48,49: begin p: =(ch mod 10); v: = ('сорок' ); end; 50: v: = ('пятьдесят '); 51,52,53,54,55,56,57,58,59: begin p: =(ch mod 10); v: = ('пятьдесят' ); end; 60: v: = ('шестьдесят '); 61,62,63,64,65,66,67,68,69: begin p: =(ch mod 10); v: = ('шестьдесят' ); end; 70: v: = ('семьдесят '); 71,72,73,74,75,76,77,78,79: begin p: =(ch mod 10); v: = ('семьдесят '); end; 80: v: = ('восемьдесят '); 81,82,83,84,85,86,87,88,89: begin p: =(ch mod 10); v: = ('восемьдесят' ); end; 90: v: = ('девяносто '); 91,92,93,94,95,96,97,98,99: begin p: =(ch mod 10); v: = ('девяносто ' ); end; 100: v: =('сто'); end; writeln(v,p); end. так оно по крайней мере запускается. но нет обработки переменной p, по ней надо делать отдельный case of.
Популярно: Информатика
-
Давиденко18.05.2022 13:38
-
Azaliya111111113.02.2023 20:20
-
fghtgxbvdrzra15.07.2021 01:08
-
нор12345678920.04.2021 00:18
-
малика207128.03.2022 17:48
-
lerafrank2602226.01.2022 09:04
-
Nastya7777777819.09.2020 21:30
-
денис109519.04.2021 14:11
-
imrangaraev0010.10.2020 10:08
-
aosch2k230.08.2022 10:31