1.Переменная c не real а integer;
2.Переменная d не real а integer.
В классе-10 учащихся 1 учащийся - на отлично ?%-составляют отличники? 1)1\10(одна десятая)=-0,2 2)0,2*100%=20%
Ответ:20% отличников.
Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
<span>end.</span>
1) while. Потому что проверка условия происходит сразу же, и если будет ложь, то цикл вообще выполняться не будет.
2) repeat/until
3) repeat
B=B-A
Until A4)
а, в: алгоритм циклической структуры
б: алгоритм разветвляющейся структуры
г: алгоритм линейной структуры
5) б
6) х: 13, у: 12
7) х:4, у: 12
8) 24
9:
...
А:=16;
B:=2;
While (B<>32) do
Begin
B:=B*2;
A:=A+2;
End;
...
При условии, что Вы, конечно, знаете девятиричную систему умножения.
А иначе - никак...