50

составьте программу которая определяет каких букв больше латинских или

===== PascalABC.NET =====

begin

 var lat := ['A'..'Z'];

 var cyr := ['А'..'Я', 'Ё'];

 var s := ReadlnString('Вводите:').ToUpper;

 var d := s.Count(c -> c in cyr) - s.Count(c -> c in lat);

 if d > 0 then

   Print('Кириллицы больше')

 else if d < 0 then

   Print('Латиницы больше')

 else

   Print('Поровну...')

end.

begin

   writeln('стоимость всех билетов составит: ', 40*10*250+40*10*400+40*15*500);

end.

или еще вариант

var

   s : integer; // сумма за все билеты

const

   n : integer = 40; // количество кресел в ряду

begin

   s := n*10*250+n*10*400+n*15*500; // находим сумму

   writeln('стоимость всех билетов составит: ', s); // выводим результат

end.

uses graphABC;

begin

SetWindowSize(600,400);

Rectangle(100,100,300,300);

Rectangle(150,150,250,250);

Line(100,100,200,50);

Line(200,50,300,100);

Rectangle(400,50,500,150);

End.

uses graphabc;

var

 i: integer;

begin

 setwindowsize(600, 101);

 for i := 0 to 5 do

 begin

   circle(50 + i * 100, 50, 50);

   circle(50 + i * 100, 50, 15);

 end;

end.

4

8554рггааггагагаос77777

б) 7 или 6