Написать программу. в этом году при поступлении в университет абитуриентам требовалось успешно сдать экзамены по и . к сожалению, с этим испытанием справились не все. известно, что на экзамены пришло n абитуриентов, из них m – сдали , f – сдали , а l – не сдали ни одного предмета. найдите, сколько абитуриентов сдали оба предмета и стали студентами, а также определите, сколько абитуриентов сдали один экзамен: только по или только по .

Отдел студенты+; использует вывод из "", приём; пер   n, m, f, l: цел; указ   вывод.цепь("пришло абитуриентов: ");   n : = приём.число();   вывод.цепь("сдало : ");   m : = приём.число();   вывод.цепь("сдало : ");   f : = приём.число();   вывод.цепь("не сдало ничего: ");   l : = приём.число();   вывод.чцел("стало студентами: %d, сдало только : %d, сдало только : %d.", m + f - n + l, m - (m + f - n + l), f - (m + f - n + l), 0) кон .

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2,   3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:

program n1;

uses crt;  

var n1,n2,n3,n4,n5,s: real;

begin

              read(n1,n2,n3,n4,n5);

              s: =(n1+n2+n3+n4+n5)/5;

              write('s=',s);

end.