Begin
var m,u,p,t:integer;
for var i:=10 to 99 do
if i mod 7 =0 then
begin
m:=m+i; u:=u+1;
end;
Writeln('Среднее чисел которые дклятся на 7=',m/u);
for var i:=1 to 99 do
if i mod 5 = 0 then
begin
p:=p+i; t:=t+1;
if t > 10 then break;
end;
Writeln('Среднее чисел которые дклятся на 5=',p/t);
end.
1. Если в программе раньше было присвоено какое-нибудь значение S, то оно и будет выведено. Если нет, будет выведен 0 или сообщение об ошибке (зависит от компилятора).
2. После выполнения фрагмента S=6. Будет напечатано 6
Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
Нужно составить вот такое дерево. Составляем его по следующему принципу; в Н можно попасть из С, D и G. В С можно попасть из А и D, и так далее.