Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Я, честно говоря, не понял, что значит "правильные", но так то б,в правильные. Ещё может быть а, но я лично не сталкивался с такими названиями
А
Объяснение:
вааааааавдвдсьажвжададчддчжвослвщдвдсьадвдсжа
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.
program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln(' ',m: 2: 2,' кг'); readln; end.
Популярные вопросы