<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var a:=1 to 10 do begin
Writeln('Длина стороны ',a,' см');
for var b:=1 to 10 do
Writeln('Вторая сторона ',b:2,', периметр ',2*(a+b):2,
', площадь ',a*b:3)
end
end.
<u>Результат</u>
Длина стороны 1 см
Вторая сторона 1, периметр 4, площадь 1
Вторая сторона 2, периметр 6, площадь 2
Вторая сторона 3, периметр 8, площадь 3
Вторая сторона 4, периметр 10, площадь 4
Вторая сторона 5, периметр 12, площадь 5
Вторая сторона 6, периметр 14, площадь 6
Вторая сторона 7, периметр 16, площадь 7
Вторая сторона 8, периметр 18, площадь 8
Вторая сторона 9, периметр 20, площадь 9
Вторая сторона 10, периметр 22, площадь 10
Длина стороны 2 см
Вторая сторона 1, периметр 6, площадь 2
Вторая сторона 2, периметр 8, площадь 4
Вторая сторона 3, периметр 10, площадь 6
Вторая сторона 4, периметр 12, площадь 8
Вторая сторона 5, периметр 14, площадь 10
Вторая сторона 6, периметр 16, площадь 12
Вторая сторона 7, периметр 18, площадь 14
Вторая сторона 8, периметр 20, площадь 16
Вторая сторона 9, периметр 22, площадь 18
Вторая сторона 10, периметр 24, площадь 20
Длина стороны 3 см
Вторая сторона 1, периметр 8, площадь 3
Вторая сторона 2, периметр 10, площадь 6
Вторая сторона 3, периметр 12, площадь 9
Вторая сторона 4, периметр 14, площадь 12
......
Длина стороны 10 см
Вторая сторона 1, периметр 22, площадь 10
Вторая сторона 2, периметр 24, площадь 20
Вторая сторона 3, периметр 26, площадь 30
Вторая сторона 4, периметр 28, площадь 40
Вторая сторона 5, периметр 30, площадь 50
Вторая сторона 6, периметр 32, площадь 60
Вторая сторона 7, периметр 34, площадь 70
Вторая сторона 8, периметр 36, площадь 80
Вторая сторона 9, периметр 38, площадь 90
Вторая сторона 10, периметр 40, площадь 100
Var
i,s,n:integer;
begin
n:=0; s:=0;
for i:=0 to 99 do
if i>9 then
if i div 10 > i mod 10 then begin
n:=n+1; s:=s+i;
end;
Writeln('Сумма ',s,', ср. арифметическое ',s/n)
end.
<u>Результат</u>
Сумма 2970, ср. арифметическое 66
#include <cmath>
#include <iostream>
int main()
{
float
a = -0.1f,
b = 21.6f,
t = 0.47f;
std::cout << "a = " << a << std::endl
<< "b = " << b << std::endl
<< "t = " << t << std::endl;
std::cout << "s = " << std::abs(a) * std::sin(a * std::pow(t, 2) * std::cos((2 * t) / std::cbrt(b))) - 1
<< std::endl;
}