Вклассе 25 учеников. из них 17 умеют ездить на велосипеде, 13 – плавать и 8 – ходить на лыжах. ни один - id819519720230525 от AshesSpy 25.05.2023 03:16

Question

Информатика: Вклассе 25 учеников. из них 17 умеют ездить на велосипеде, 13 – плавать и 8 – ходить на лыжах. ни один из учеников не владеет всеми тремя спорта. велосипедисты, пловцы и лыжники имеют хорошие или удовлетворительные оценки по , а шесть учеников не успевают по этому предмету. 6.1. сколько всего спортсменов в классе? в качестве ответа запишите число. 6.2. сколько учеников имеют отличные оценки по ? в качестве ответа запишите число. 6.3. сколько пловцов умеют ходить на лыжах? в качестве ответа запишите

AshesSpy · Accepted Answer

Var i,n,fs,ls: integer;
fsz,indf,indl: int64;
f: file of integer;
begin
write('n = '); readln(n);
// запись в файл целых чисел
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do write(f,random(-3000,8000));
close(f);
// замена элементов в файле
assign(f,'input.txt');
reset(f);
fsz:=FileSize(f);
indf:=0;
for i:=0 to fsz-1 do
begin
read(f,n);
if ((n mod 2)<>0) and (indf=0) then
begin
indf:=i; fs:=n;
end;
if (n mod 2)=0 then
begin
indl:=i; ls:=n;
end;
end;
reset(f);
seek(f,indf);
write(f,ls);
reset(f);
seek(f,indl);
write(f,fs);
close(f);
end.

MOGZ ответил