Вбригаде 25строителей среди них 20 человек моложе 30 лети 15 человек старше 20 лет может ли так быть?

Может, 5 человек - старше 30 лет, 15 человек - от 20 до 30 лет, 5 человек - моложе 20 лет. или может в том случае, если 10 человек моложе 20 лет, 10 – в возрасте от20 до 30 лет и 5 – старше 30 лет. 

 

 

program z1;

var k: integer;

s: string;

f: text;

begin 

assign(f,'input.pas');

reset(f);

k: =0;

while not eof(f) do begin

readln(f,s); k: =k+1; end;

writeln('k=',k);

close(f);  

end.

 

 

связать логический файл f с файлом input.pas; открыть файл для чтения; организовать считывание данных из файла построчно (readln(f,s), где s-переменная типа string), насчитывая на каждом шаге считывания значение переменной-счетчика k; вывести на экран значение переменной-счетчика; закрыть файл.

program hello; var i: integer; begin  write('введите целое число от 1 до 11: ');   readln(i);   writeln('**********************************'); case i of      '1' : writeln(', ! ');       '2' : writeln(', ! ');       '3' : writeln(', ! ');       '4' : writeln(', ! ');       '5' : writeln(', ! ');       '6' : writeln(', ! ');       '7' : writeln(', ! ');       '8' : writeln(', ! ');       '9' : writeln(', ! ');       '10' : writeln(', ! ');       '11' : writeln(', ! ');       else writeln('вы должны ввести число от 1 до 11')  end;   writeln('**********************************'); end.

 

 

 

program phone; var day: integer; time: real; week: array[1..7] of string; begin  week[7]: ='воскресенье';   week[6]: ='суббота';   week[5]: ='пятница';   week[4]: ='четверг';   week[3]: ='среда';   week[2]: ='вторник';   week[1]: ='понедельник';   write('введите длительность разговора в минутах ');   readln(time);   write('введите номер дня недели ');   readln(day);   writeln('***** alphaeus is   *****');   case day of      '1'..'5':             begin                 writeln(week[day]);                 writeln('сумма без скидки - ', 2.3*time);                 writeln('сумма скидкой - ', 0.8*2.3*time);                 writeln('скидка не предоставляется');             end;       '6','7':             begin                 writeln(week[day]);                 writeln('сумма без скидки - ', 2.3*time);                 writeln('сумма скидкой - ', 0.8*2.3*time);                 writeln('вам предоставлена скидка! ');             end;       else writeln('вы ввели неправильный номер дня недели')  end;   writeln'************************************'); end.