воскресенье, 11 октября 2026 г.
четверг, 8 октября 2026 г.
среда, 7 октября 2026 г.
Задача 3 стр. 36
Задача 3 , стр. 36
var k1: array [1..99] of integer;
k2: array [1..99] of integer;
var n1,n2: integer;
s1,s2,min :integer;
begin
write('Введите количество удаленных игроков из двух команд: ');
read(n1,n2);
min:=2;
for var i:= 1 to n1 do s1:=s1+min;
for var i:= 1 to n2 do s2:=s2+min;
if s1>s2 then writeln('первая команда провела на поле больше времени =',s1)
else writeln('вторая команда провела на поле больше времени =',s2)
end.
k2: array [1..99] of integer;
var n1,n2: integer;
s1,s2,min :integer;
begin
write('Введите количество удаленных игроков из двух команд: ');
read(n1,n2);
min:=2;
for var i:= 1 to n1 do s1:=s1+min;
for var i:= 1 to n2 do s2:=s2+min;
if s1>s2 then writeln('первая команда провела на поле больше времени =',s1)
else writeln('вторая команда провела на поле больше времени =',s2)
end.
Задача 3, стр 36
var k1: array [1..99] of integer;
k2: array [1..99] of integer;
var n1,n2: integer;
s1,s2,min :integer;
begin
write('Введите количество удаленных игроков из двух команд: ');
read(n1,n2);
for var i:= 1 to n1 do
begin
write('Введите время удаленного игрока первой колманды');
readln(k1[i]);
s1:=s1+k1[i];
end;
for var i:= 1 to n2 do
begin
write('Введите время удаленного игрока второй команды');
readln(k2[i]);
s2:=s2+k2[i];
end;
if s1>s2 then writeln('первая команда провела на поле больше времени =',s1)
else writeln('вторая команда провела на поле больше времени =',s2)
end.
k2: array [1..99] of integer;
var n1,n2: integer;
s1,s2,min :integer;
begin
write('Введите количество удаленных игроков из двух команд: ');
read(n1,n2);
for var i:= 1 to n1 do
begin
write('Введите время удаленного игрока первой колманды');
readln(k1[i]);
s1:=s1+k1[i];
end;
for var i:= 1 to n2 do
begin
write('Введите время удаленного игрока второй команды');
readln(k2[i]);
s2:=s2+k2[i];
end;
if s1>s2 then writeln('первая команда провела на поле больше времени =',s1)
else writeln('вторая команда провела на поле больше времени =',s2)
end.
понедельник, 5 октября 2026 г.
№ 6
Задача 6*var B:array [1..100] of integer;
x,n:integer;
begin
writeln('введите кол-во учащихся в классе'); Readln (N);
writeln('введите рост учащихся');
for var i:=1 to n do
begin
write('учащийся номер ', i,':');
readln (B[i]);
end;
end.
x,n:integer;
begin
writeln('введите кол-во учащихся в классе'); Readln (N);
writeln('введите рост учащихся');
for var i:=1 to n do
begin
write('учащийся номер ', i,':');
readln (B[i]);
end;
end.
Задача 7*
var T:array [1..100] of real;
a,b, n:integer;
begin
writeln('введите кол-во дней'); Readln (N);
writeln('введите интервал a и b');
readln(a,b);
for var i:=1 to n do
begin
T[i]:=random(a,b)/100;
writeln(i,'декабря температура была =', T[i]);
end;
end.
пятница, 2 октября 2026 г.
четверг, 24 сентября 2026 г.
Подписаться на:
Сообщения (Atom)