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

121

421

Посмотреть ответы 1

Ответы на вопрос:

Титова2017

Информатика

4,4(23 оценок)

A,b: integer; d: string[45]; begin setconsoleoutputcp(1251); writeln('введите число в диапазоне от 1 дo 100'); write('a='); readln(a); b: =a mod 10; a: =a div 10; case b of 0: d: =''; 1: d: ='i'; 2: d: ='ii'; 3: d: ='iii'; 4: d: ='iv'; 5: d: ='v'; 6: d: ='vi'; 7: d: ='vii'; 8: d: ='viii'; 9: d: ='ix'; end; b: =a mod 10; a: =a div 10; case b of 0: d: =''+d; 1: d: ='x'+d; 2: d: ='xx'+d; 3: d: ='xxx'+d; 4: d: ='xl'+d; 5: d: ='l'+d; 6: d: ='lx'+d; 7: d: ='lxx'+d; 8: d: ='lxxx'+d; 9: d: ='xc'+d; end; b: =a mod 10; a: = a div 10; case b of 0: d: =''+d; 1: d: ='c'+d; end; writeln('b римской системе счисления ' ,d); readln; end.