Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. сделать для программы паскаль! с функций div и mod

109

498

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

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

medewwnik

Информатика

4,8(57 оценок)

Var a,b,c,x: integer; begin x: =random (899) +100; writeln('x= ', x); a: = x div 100; {первая цифра} b: =(x mod 100) div 10; {вторая цифра} c: = x mod 10; {третья цифра} writeln(a,',',b,',',c); end.

paxand

Информатика

4,6(100 оценок)

Var n,sum: integer; arr: array [0..30] of integer; begin sum: =0; randomize; for n: =0 to 29 do begin arr[n]: =random(1000)-500; if (arr[n]< 0) then sum: =sum+arr[n]; end; writeln('сумма отрицательных чисел = ',sum); end.