111 - Н
110 - Е
01 - Т
10 - О
111|110|01|10=НЕТО
Ответ: НЕТО
<span>Program Integer_1;
var l,k: integer;
begin
write ('Значение L:');
readln (l);
k := l div 100;
write ('Количество полных метров: ',k,'.');
end<span>.</span></span>
Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.
Пример:
<span>R = 3
V = 113.10</span>