Program kids;
var m,j,Summa:<em>integer</em>;
begin
writeln('На сколько мальчиков больше ?'); readln(m);
j:=15;
Summa:=j+(m+j);
writeln('В нашем классе ',Summa,' человек.');
readln;
end.
________
j - это сумма девочек, а m+j - это сумма мальчиков.
Мадана это медведь на юге
Формулаға сәйкес, екеуден 8-ші дәрежеге дейін көтеріңіз және әліпбидегі 256 әріптерді алыңыз
Если, что извините пользовалась переводчиком))
Var a,b,c,d:integer;
begin
writeln('введите 9 чисел ');
d:=9;
b:=0;
while (d<>0) do begin
read(a);
if (a>10) then begin b:=a+b; c:=c+1;end;
d:=d-1;
end;
writeln('среднее арифметическое ',b/c);
<span>end.</span>