Квас муж и жена выпивают бочонок кваса за n дней. жена выпивает этот же бочонок за w дней. требуется - id704593420220511 от 129697113 11.05.2022 19:43

Question

Информатика: Квас муж и жена выпивают бочонок кваса за n дней. жена выпивает этот же бочонок за w дней. требуется узнать, за сколько дней его выпивает муж. (составьте формулу для вычисления.) 1 =n =1000, 1 =w =1000. гарантируется, что всегда разрешима в целых положительных числах, не превосходящих 1000. примеры: n | w | муж выпьет 10 | 35 | 14 15 | 240 | 16

129697113 · Accepted Answer

Program n1;
Uses Crt;
Var
c: array[1..1000] of integer;
n, i, null, otric, polozhit :integer;
Begin
writeln('Razmer massiva = '); Readln(n);

for i:=1 to n do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;

writeln();

otric:=0; polozhit:=0; null:=0;
for i:=1 to n do begin
if (c[i]<0) then otric:=otric+1;
if (c[i]>0) then polozhit:=polozhit+1;
if (c[i]=0) then null:=null+1;
end;
writeln('Kol-vo chisel < 0: ', otric);
writeln('Kol-vo chisel > 0: ', polozhit);
writeln('Kol-vo chisel = 0: ', null);
End.

MOGZ ответил