Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
имя возраст занятие
оля 13 пение
петя 14 баскетбол
вася 13 хоккей
катя 15 танцы
коля 11 баскетбол
серёжа 11 футбол
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,d,x,res: integer;
begin
readln(x);
a: =x div 1000;
b: =x mod 10;
c: =x div 100 mod 10;
d: =x mod 100 div 10;
res: =a+b+c+d;
writeln(res);
readln;
end.
решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4
Популярные вопросы