Предмет: Информатика, автор: halfme

Решите, пожалуйста B и C

Приложения:

Ответы

Автор ответа: KotDimos
0

program C;

var a:array [1..4] of integer;

var x,i:integer;

begin  

randomize;

x:=random(0,1000);

writeln('полученое  число ',x);

for i:=1 to 4 do begin

a[i]:=x mod 10;

x:=x div 10;

end;

write ('его цифры ');

for i:=4 downto 1 do

if a[i]>0 then write(a[i],', ');

end.


Похожие вопросы
Предмет: Геометрия, автор: gnomzilla
Предмет: Биология, автор: mrbauyr2001