Program arrays;
var a:array [1..3,1..6] of integer;
i,j:byte;
begin
for i:=1 to 3 do
for j:=0 to 1 do
begin
a[i,1+3*j]:=random(101)+10;
a[i,2+3*j]:=random((1001)+100) div (i+2*j);
a[i,3+3*j]:=(random(101)+10) mod 10;
end;
for i:=1 to 3 do
begin
for j:=1 to 6 do
write(a[i,j],' ');
writeln;
end;
end.
//Если нужны пояснения - пишите
Варианты: А) 1Б, 2Г, 3В, 4А B) 1Б, 2А, 3Г, 4В C) 1Б, 2Г, 3Г, 4В D) 1А, 2Г, 3Б, 4В
Елена Идман [7]
Ответ А)он совпадает с этой графикой
В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой
1000=(83*12)+4;
Т.е. Пройдет 83 года и 4 месяца--- будет 15 марта.
Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.