Program zad1;
Uses Crt;
var alfa,a,b,S:real;
begin
clrscr;
write('Введите сторону a:');
readln(a);
write('Введите сторону b:');
readln(b);
write('Введите угол между сторонами:');
readln(alfa);
S:=0.5*a*b*sin(alfa);
writeln;
writeln('Площадь треугольника равна:',S:3:3);
readkey;
end.
Program zad2;
Uses Crt;
var s:string[5];
c:char;
begin
clrscr;
write('Введите пятизначное число:');
readln(s);
c:=s[3];
s[3]:=s[2];
s[2]:=c;
writeln('Выходное число:',S);
readkey;
end.
Const
n=10;
var
i,m,k:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
Writeln;
Writeln('Введите целое число: '); Read(m);
k:=0;
for i:=1 to n do
if a[i]<m then Inc(k);
Writeln('Количество чисел, меньших ',m,' равно ',k)
end.
Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5
Program riad;
var
a:array [1..10] of integer;
i,j:byte;
begin
writeln('Vvedite chisla');
for i:=1 to n do
readln(a[i]);
i:=1;
j:=0;
repeat
if a[i]<abs(a[i]) then j:=j+1;
i:=i+1;
until i=10;
writeln('kol-vo otricat = ',j);
readln;
end.
Да,находятся компьютер связан с Монитором;Кровать с Одеялом;Автомобиль с <span> Коробка передач</span>