#include <iostream>
#include <cstdlib>
#include <cmath>
#define pi 3.14
using namespace std;
int main()
{
float a, b, S; // прямоугольник(данные)
float R, H, V; // цилиндр(данные)
//ввод данных//
cout << "Input the length of rectangle: "; cin >> a;
cout << "Input the width of rectangle: "; cin >> b;
cout << "Input the radius of cylinder: "; cin >> R;
cout << "Input the height of cylinder: "; cin >> H;
//ввод данных//
//вычисление//
S = a * b;
V = pi * pow(R,2)* H;
//вычисление//
//вывод в консоль//
cout << "Area of rectangle = " << S << endl;
cout << "Volume of cylinder = " << V << endl;
//вывод в консоль//
system("pause"); // остановка консоли
return 0;
}
Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
writeln; s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
if i mod 2<>0 then
s:=s+a[i,j];
end;
if i mod 2<>0 then
writeln(s:6);
end;
<span> end.</span>
Чертим вектор А и от его конца откладываем вектор B, расстояние от начала вектора А до конца вектора В будет суммой векторов АВ.
1)
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.
