Написать программу которая выводит на экран k случайных денег. посчитать сумму чисел кратных 3 и количество оканчивающихся на ноль

Program num;   uses crt;   var  x,i,n: integer;   pr,l: longint; begin   textcolor(11); randomize; x: =random(1000,100000); writeln('всего деньжат ', x); writeln('впишите числа которые получились выше: '); readln(i); n: =i div 3; //или так i: =i div 3; writeln(n); // writeln(i); pr: =1; for l: =10 to n do // for l: =10 to i do pr: =pr*l; writeln('нулей', pr); readln(); end.

2^i = 24

i = 5

ответ. 5 лампочек.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

 

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.