1.
program test;
var i,k2,k3,k4,k5:integer;
a:array [1..20] of integer;
begin
k2:=0;
k3:=0;
k4:=0;
k5:=0;
for i:=1 to 20 do
begin
a[i]:=random(4)+2;
if a[i]=2 then k2:=k2+1;
if a[i]=3 then k3:=k3+1;
if a[i]=4 then k4:=k4+1;
if a[i]=5 then k5:=k5+1;
write(a[i],' ')
end;
writeln;
writeln(k2);
writeln(k3);
writeln(k4);
write(k5)
end.
2.
var i,j,v:integer;
a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random (100);
write(a[i]:3)
end;
for i:=1 to 9 do
for j:=1 to 9 do
if a[j]>a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end;
writeln;
for i:=1 to 10 do write(a[i]:3)
end.
3.
var a:array [1..10] of integer;
i,j,m,v:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3)
end;
writeln;
for i:=1 to 10 do
begin
m:=i;
for j:=i to 10 do
if a[m] mod 10 < a[j] mod 10 then m:=j;
v := a[i];
a[i]:= a[m];
a[m] := v;
write(a[i]:3)
end;
end.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int x, faktorial;
faktorial = 1;
cout << "vvedite x" << endl;
cin >> x;
if(x <= 0)
{
cout << "x dolgen bit' > 0" << endl;
return 0;
}
cout << "faktorial " << x " = "; //выводим заготовку для результата, так как x будет меняться
do
{
faktorial *= x; //faktorial = faktorial * x;
}
//если в условие цикла подставить число, то 0 преобразуется к "ложь", а ненулевое значение к "истина"
while(--x);//уменьшаем x на 1, затем проверяем его на 0
cout << faktorial << endl;
return 0;
}
Объяснение:
begin
repeat
writeln ('Введите два угла при параллельной стороне, в градусах');
readln(n,m);
until (n>0)and(m>0)and(n<180)and(m<180)and(m+(180-m)+n+(180-n)=360);
if (n=m)and(m=90) then writeln('Прямоугольник')
else if ((n=90)and(m<>90))or((m=90)and(n<>90)) then writeln('Прямоугольная трапеция')
else if (n=m) then writeln('Равнобедренная трапеция')
else writeln('Обыкновенная трапеция');
end.