<u>Ответ: С</u>
т.к.
a:=40;
b:=6;
a:=div(a,b), т.е. a/b, div берёт целую часть от деления, 40/6=6 - целая часть
b:=a*b; b:=6*6=36;
a:=div(b,a); a:=36/6=6;
Ответ:
a:=6;
b:=36
Var
k, c: integer;
begin
k := 1;
for c := 1 to 5 do
if c mod 2 <> 0 then
k := k * c;
writeln(k);
end.
Ответ 15
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
Program z9; Var s1,s2,v1,v2,s:integer; t1,t2,v,t:real;Begin write('S1 = '); readln(s1); write('S2 = '); readln(s2); write('V1 = '); readln(v1); write('V2 = '); readln(v2); s:=s1+s2; t1:=s1/v1; t2:=s2/v2; t:=t1+t2; v:=s/t; writeln('Средняя скорость равна = ', v);End.
Кампютерная мышка. управляет экраном. она может передвигать. любые файлы на нужное место. без мыши нельзя не куда нажать