Const
n = 5;
var
a: array [1..n] of byte;
s, k: longint;
b: byte;
begin
k := 1;
for b := 1 to n do
begin
a[b] := random(1, 11);
write(a[b]:3);
end;
writeln();
for b := 1 to n do
if (a[b] mod 2 = 1) then
s := s + a[b]
else
k := k * a[b];
for b := 1 to n do
writeln(s, ' ', k);
end.
(net)- Доменне им'я, використовується Для мережевих структур
K=6 ъфцтё жскчр ьоъцё зфц
Пусть мальчиков было - х
А девочек - у
Тогда х*у = 77, но 77 можно разложить на множители только двумя способами: 7*11 или 11*7
Если Мальчиков 7, то девочек 11
или наоборот девочек 7, а мальчиков 11,
В любом случае получается учеников в классе 7 + 11= 18