Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ДАЮ 35 БАЛЛОВ(только если правильно)!!!!11!!!1!!1!!1!!1111!!!!!1!1!1

В этом году при поступлении в университет абитуриентам требовалось успешно сдать экзамены по математике и физике. К сожалению, с этим испытанием справились не все. Известно, что на экзамены пришло N абитуриентов, из них M – сдали математику, F – сдали физику, а L – не сдали ни одного предмета. Найдите, сколько абитуриентов сдали оба предмета и стали студентами, а также определите, сколько абитуриентов сдали один экзамен: только по математике или только по физике.

На экран выведите три числа через пробел:

a) количество абитуриентов, сдавших оба экзамена;

b) количество абитуриентов, сдавших только математику;

с) количество абитуриентов, сдавших только физику.

Answer 1

program raf105;

var n, m, f, o, mf, tm, tf: integer;

begin

write('Количество абитуриентов: ');

readln(n);

writeln('   Из них:');

write('Сдали математику: ');

readln(m);

write('Сдали физику: ');

readln(f);

write('Не сдали ни одного предмета: ');

readln(o);

mf:= (m+f)-(n-o);

tm:= m - mf;

tf:= f - mf;

writeln('Сдали оба экзамена: ',mf);

writeln('Сдали только математику: ',tm);

writeln('Сдали только физику: ',tf);

end.

PascalABC 3.4.2