Вывести на экран и посчитать количество всех четырехзначных чисел, в записи которых нет одинаковых цифр, и все цифры идут в убывающем порядке. на паскале
Var i,x,a,b,c,d,count:integer; begin count:=0; for i:=1000 to 9999 do begin a:=i div 1000; b:=(i div 100) mod 10; c:=(i mod 100) div 10; d:=i mod 10; if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then if (a>b) and (b>c) and (c>d) then begin count:=count+1; write(i,' '); end; end; writeln; writeln('Количество: ',count); end.
Как-то так var a,b,c,h,p,s:real; var ch:char; var f:boolean; begin repeat write('Êàê ñ÷èòàåì ïëîùàäü? 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); readln(ch); if ch='1' then begin write('a='); read(a); write('b='); read(b); write('c='); read(c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Ïëîùàäü ðàâíà ',s); f:=true; end else if ch='2' then begin write('a='); read(a); write('h='); read(h); writeln('Ïëîùàäü ðàâíà ',0.5*h*a); f:=true; end else begin cls; writeln('Îòâåò ôèãîâûé! Åùå ðàçîê: 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); end; until f; end.
Как-то так var a,b,c,h,p,s:real; var ch:char; var f:boolean; begin repeat write('Êàê ñ÷èòàåì ïëîùàäü? 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); readln(ch); if ch='1' then begin write('a='); read(a); write('b='); read(b); write('c='); read(c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Ïëîùàäü ðàâíà ',s); f:=true; end else if ch='2' then begin write('a='); read(a); write('h='); read(h); writeln('Ïëîùàäü ðàâíà ',0.5*h*a); f:=true; end else begin cls; writeln('Îòâåò ôèãîâûé! Åùå ðàçîê: 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); end; until f; end.
begin
count:=0;
for i:=1000 to 9999 do begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
if (a>b) and (b>c) and (c>d) then begin
count:=count+1;
write(i,' ');
end;
end;
writeln;
writeln('Количество: ',count);
end.