Uses crt;
const n=8;
var a:integer;
b:array[1..n] of integer;
i,k,t:integer;
begin
readln(a);
k:=1;
repeat
for i:=k to k do
b[i]:=a mod 10;
a:=a div 10;
inc(k);
until a=0;
t:=0;
for i:=k-1 downto 2 do
if (b[i]>b[i-1]) then inc(t);
if t=0 then writeln('yes') else writeln('no');
end.
1.var i,a:integer;begina:=1;while(a<>0) do beginreadln(a);if a<0 then i:=i+1;end;writeln(i);readln;
end.
2.var dd,mm,gg,hh,min:integer;begin randomize;dd:=random(31)+1;mm:=random(12)+1;gg:=random(11)+2000;hh:=random(24);min:=random(60);write(dd);write('/');write(mm);write('/');write(gg);write(' ');write(hh);write(':');write(min);readln;
end.<span>
</span>
Обонятельную инф. мы воспринимаем носом, это запахи
осязательную инф. мы воспринимаем касаниями, это то, что мы чувствуем пальцами, руками, ногами и т.д.
Https
=====================