Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составьте программу ( Паскаль ): на вступительных экзаменах абитуриент сдавал физику, информатику и сочинение. Абитуриент поступит, если получит 5 по информатике и наберем сумму за три экзамена не меньше 13. Правда ли, что абитуриент поступил?( вывести True/False)

Ответ оставил Гость

Begin
var ex1, ex2, ex3, ex : integer;
writeln (Введите баллы экзамена по информатике); readln (ex1);
writeln (Введите баллы вступительного экзамена по физике); readln (ex2); 
writeln (Введите баллы за сочинение);readln (ex3);
ex:= ex1+ex2+ex3;
if (ex1>=5) and  (ex>=13) then writeln (true) else writeln (false); 
end.