12₈ = 2×8⁰+1×8¹ = 2×1+1×8 = 2+8 = 10₁₀
1234567₈ = 7×8⁰+6×8¹+5×8²+4×8³+3×8⁴+2×8⁵+1×8⁶ = 7×1+6×8+5×64+4×512+3×4096+2×32768+1×262144 = 342391₁₀
Program pr;
uses crt;
var
mas: array[1..10] of real;
sum: real;
i: integer;
Begin
sum:=0;
for i:=1 to 10 do
Begin
write('mas', i, ' = ');
readln(mas[i]);
sum:=sum + mas[i];
end;
writeln();
writeln('sum = ' , sum);
readln;
<span>end. </span>
Например, возьмем пятое суждение: утверждение Италия-5 - правильно. В четвер-том суждении правильным вариантом есть решение Россия-1. Третье суждение имеет такой правильный ответ - Германия-4. Во первом суждении правильный ответ - Украина-3.
Получилось:
1 место - Россия
2 место - Китай
3 место - Украина
4 место - Германия
5 место - Италия
Var A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn('S = ',(A div 1000)+(A mod 10));
WriteLn('P = ',((A div 100) mod 10)*((A div 10) mod 10));
End.
1)программа и график (В и Д) -динамические модели,тогда остальное статические модели
2)А и В