Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
begin k: =k+1;
delete(s,max(max(pos('.',s),pos('! ',('? ',); end; writeln(k); end.
если есть д ш и в то это не куб а параллелипипед
var
a,b,c,r: real;
begin
readln(a,b,c,r);
if (2*r< a) and (2*r< b) and (2*r< c)
then writeln('поместится')
else writeln ('не поместится');
end.
для куба достаточно одного условия (2*r< a)
в ms excel по умолчанию числа выравниваются по правому краю, текст по левому
но при ручном форматировании можно выравнивать как угодно
нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!
Популярные вопросы