Const N=10;
var a:array [1..N] of integer;
k,i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(10)+1;
write (a[i], ' ');
end;
for i:=1 to N-1 do
if a[i]>a[i+1] then k:=k+1;
writeln('k= ', k);
<span>end.</span>
Мадем,,программа если щитается пульт но думаю нет..
Program abc;
var
n:integer;
begin
Write('Введите трёхзначное число: ');
readln(n);
Writeln('В данном числе: ',n div 100,' сотен(-я), ',(n div 10) mod 10,' десятков(-ок, -а), ', n mod 10, ' единиц(-а).');
<span>end.</span>
Я считаю, что это могут быть колокола
Ответ:
3 положительных ответа
Объяснение:
решения:
20=0+4+4+4+4+4
11=0+4+4+4+4-5
2=0+4+4+4-5-5
действия можно переставлять местами, остальные вариации ответов отрицательны