Удеда мороза в мешке четыре разные шоколадные конфеты и три разные карамельки. петя и маша рассказали - id257026920200510 от Кари15142 10.05.2020 09:20

Question

Информатика: Удеда мороза в мешке четыре разные шоколадные конфеты и три разные карамельки. петя и маша рассказали на новогоднем празднике по стихотврению, и дед мороз решил выдать им подарки. считаеться, что подарки выданы справедливо, если каждый, кто рассказывал стихотвроение, получит подарком, состоящий из одной карамельки, или каждый,кто рассказывал стихотворение,получит подарок, состоящий из одной шоколадной конфеты. сколькими дед мороз может справедливо выдать подарки пете и маше?

Кари15142 · Accepted Answer

Uses crt; type oc=record        per,bt,tr:integer; end; ab=record fam,im:string; ocen:oc; end; var b:array [1..50] of ab; l:ab; i,n,g,k,h:integer; begin clrscr; writeln ( введи количество абитуриентов ); readln (n); Writeln ( Вводи фамилии, имена и 3 оценки ); for i:=1 to n do with b[i] do begin readln (fam); readln (im); readln (ocen.per,ocen.bt,ocen.tr); end; clrscr; for j:=1 to n do for i:=1 to n-1 do if b[i].fam b[i+1].fam then begin l:=b[i]; b[i]:=b[i+1]; b[i+1]:=l; end; writeln ( Список всех...

MOGZ ответил