#include <iostream>
int main (){
double u1 = 123, t1, t2 = 3.856, n0 = 840, n1 = 610, u;
t1 = t2 + sqrt (n0 / n1);
u = u1 / (1 + t1 / t2);
std:: cout << u << "\n";
system ("pause");
return 0;
<span>}
результат выполнения: 53.3779</span>
Const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,k,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if a[i,j] mod 5=0 then k:=k+1;
writeln(i,': ',k);
if k>max then max:=k;
end;
writeln('max = ',max);
end.
Пример:
Исходный массив:
23 5 72 8 28 14
25 78 62 10 61 35
61 30 19 58 98 29
94 36 58 51 90 10
34 82 47 92 41 45
1: 1
2: 3
3: 1
4: 2
5: 1
max = 3
<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.
<span>Всеми́рная паути́на (англ. World Wide Web) — распределённая система, предоставляющая доступ к связанным между собой документам, расположенным на различных компьютерах, подключенных к Интернету. Для обозначения Всемирной паутины также используют слово веб (англ. web «паутина») и аббревиатуру WWW.</span>