Var m, a: real;
begin
read(a, m);
writeln(a * m);
end.
Программу из комментариев переписал для паскаля.
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
<span>end.</span>
9. B2 = 4 + 1 = 5; C1 = 6/2 = 3, D1 = 3 - 1 + 1 = 3
На диаграмме области 1, 5, 3, 3
A2 = 1 = A1 - D1 - 1
Ответ: 3
12. 6 - f, 5 - e, 4 - c, 3 - a, 2 - d, 1 - b
Ответ: 1
Диплом⇒дипломат⇒дипломант;