Выпускники одной школы выбирали, какие экзамены они будут сдавать. известно следующее: 1)каждый выпускник - id934900320210310 от hiraimomorin 10.03.2021 18:18

Question

Информатика: Выпускники одной школы выбирали, какие экзамены они будут сдавать. известно следующее: 1)каждый выпускник обязательно выбрал либо , либо информатику, либо обществознание.2) выбрали 53 выпускника, информатику – 97 выпускников, обществознание – 39выпускников.3)63 выпускника выбрали ровно два из этих трёх экзаменов.4)2 выпускника решили сдавать все три названных экзамена.сколько всего выпускников в этой школе?

hiraimomorin · Accepted Answer

program massiv4;
uses crt;
var a, b, c:integer;
begin
clrscr;
randomize;
a:=random(3)+2;
b:=random(35)+10;
c:=a*b*100;
writeln(c);
readln;
end.

вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:

program massiv4;
uses crt;
var i, a, b, c:integer;
begin
for i := 0 to 99 do
begin
randomize;
b:=random(35)+10;
for i := 1 to b do
begin
randomize;
a:=random(3)+2;
for i := 1 to a do
begin
c:=c+a*b;
end;
end;
end;
writeln(c);
readln;
end.

MOGZ ответил