Устройства ввода:
(◘ сканер в принтере)
◘ сканер
◘ клавиатура
◘ микрофон
◘ компьютерная мышь
◘ джойстик
Program Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.
Петр Лисицын-информатика
Андрей Соколов-русский
Василий Журавлев- математика
Var
i:integer;
a:array [1..8] of real;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=8+ Random;
writeln(a[i]:0:2);
end;
end.
Ответ:
5
Объяснение:
31=2^4+2^3+2^2+2^1+2^0
10^4+10^3+10^2+10^1+10^0=11111