Предмет: Информатика,
автор: halfme
Решите, пожалуйста B и C
Приложения:

Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Математика,
автор: SteileSniper
Предмет: Геометрия,
автор: gnomzilla
Предмет: Информатика,
автор: dreamsi
Предмет: Обществознание,
автор: nikitad234
Предмет: Биология,
автор: mrbauyr2001