Пусть мальчиков было x
а девочек y
тогда x*y=77
77 можно разложить на множители 77=11*7 77=7*11
если мальчиков 7 то девочек 11
если мальчиков 11 то девочек 7
в любом случае в классе получается 7+11=18 учеников
Var a,b,c,v,s:integer;
BEGIN
writeln ('Введите длины сторон');
readln(a); readln(b); readln(c);
v:=a*b*s;
s:=2*(a*b+a*c+b*c);
writeln('<span>Объем параллелепипеда с ребрами' ,a, ' , ' ,b, ' и ' ,c, 'равен </span>' ,v);
writeln('Площадь поверхности параллелепипеда с ребрами' ,a, ' , ' ,b, ' и ' ,c, 'равна ' ,s);
end.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadReal('Введите число:');
if n>0 then Writeln('Число положительное')
else if n<0 then Writeln('Число отрицательное');
if n=35 then n:=71
else if n<35 then n-=23;
Writeln('Результат: ',n)
end.