1.
Program Program1;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма элементов массива: ',k);
end.
2.
Program Program2;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
inc(k);
end;
Writeln('Количество элементов массива: ',k);
end.
<u><em>Задание 2.</em></u>
// PascalABC.Net 3.0, сборка 1064
function f(x,z:double):double;
begin
if (x>z) and (z>1) then Result:=(x-z)/(z-1)
else
if (x<=0) and (z<0) then Result:=2*x*z
else Result:=x+1
end;
<u><em>Задание 3.</em></u>
// PascalABC.Net 3.0, сборка 1064
var
a,b,c:real;
begin
Write('Введите длины сторон треугольника: '); Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний, площадь ',a*a/4*sqrt(3))
else
if (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный, периметр ',a+b+c)
else
Write('Треугольник разносторонний, самая короткая сторона ',
min(a,min(b,c)))
end
end.
<u><em>Тестовые решения:</em></u>
Введите длины сторон треугольника: 5 3.7 6
Треугольник разносторонний, самая короткая сторона 3.7
Введите длины сторон треугольника: 4 6 4
Треугольник равнобедренный, периметр 14
Введите длины сторон треугольника: 5 5 5
Треугольник равносторонний, площадь 10.8253175473055
Он захотел летать как птица вот Леонардо да Винчи создал из дерева и бумаги не большой самолётик который всех порозил но не все им стали пользоваться ,а когда он хотел как рыба плавать он взял железо истекло с трубкой и соединил и получился шлем струбкой и дышит и плавает.
Удачи во всём тебе и выучись хорошо!
Информационная безопасность - это<span> защищенность информации от случайных или преднамеренных воздействий.</span>
5+7=12
5 у первого
7 у второго
задача стара как мир