1.Площадь S квадрата вводится с клавиатуры. Вычислить длину стороны a и длину диагонали d. 2. В прямоугольном треугольнике заданы два катета a и b, значения которых вводятся с клавиатуры. Найти гипотенузу c и площадь S. Язык: Pascal

1)

var a,s:integer;

begin

readln(s);

writeln(‘Длина стороны = «‘ sqrt(s));

writeln(‘Длина диагонали = ‘, sqrt(s)*sqrt(2));

end.

2)

begin

readln(a,b);

writeln(‘Гипотенуза = ‘, sqrt((a*a)+(b*b)));

writeln(‘Площадь = ‘, (a*b)/2);

end.

1.
#include <iostream>
using namespace std;

int main()
{
    int a, b;
    cout << "a = ", cin >> a;
    cout << "b = ", cin >> b;
    for (int i=a; i<=b; i++) {
    cout << i << " ";
    }
    return 0;
}

Пример:
a = 5
b = 12
5 6 7 8 9 10 11 12

2.
#include <iostream>
using namespace std;

int main()
{
    int a, b, s=0;
    long long p=1;
    cout << "a = ", cin >> a;
    cout << "b = ", cin >> b;
    for (int i=a; i<=b; i++) {
    p = p*i;
    s = s+i;
    }
    cout << "p = " << p << " s = " << s;
    return 0;
}

Пример:
a = 5
b = 12
p = 19958400 s = 68

Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97