1)
program hello_world;
var n, i: integer;
begin
write('Введите число ');
read(n);
for i:= 1 to n do write(i, ' ')
end.
2)
program hello_my_world;
var a,b, i: integer;
begin
write('Введите числа A и B ');
read(a, b);
for i:=a to b do write(i, ' ')
end.
Sqrt(a*a+b*b+c*d)/sqrt(a*b*c*d)
В теории можно это буква в её код 20 а как я знаю нули из числа можно убирать пример (в двоичной системе) число 100100 оно занимает два байта то есть 00000000 00100100 ели я не прав отметь мой ответ как неправильный
Дано:
П+В=14200
П=9700
П*В=5100
Найти: В-?
Решение:
В=(П+В)-П+П*В=14200-9700+5100=9600
ответ 9600
Var
matrix :array[1..4, 1..4] of integer;
min, sum, i, j :integer;
begin
min := maxint;
sum := 0;
for i:=1 to 4 do
for j:=1 to 4 do
read(matrix[i, j]);
for i:=1 to 4 do
for j:=1 to 4 do
begin
if matrix[i, j] < min then
min := matrix[i, j];
sum := sum + matrix[i, j];
end;
for i:=1 to 4 do
for j:=1 to 4 do
if matrix[i, j] < (sum / 16) then
matrix[i, j] := min;
end.