На вход подается строка имеющая вид: ФАМИЛИЯ ИМЯ БАЛЛ1 БАЛЛ 2 ФАМИЛИЯ ИМЯ... Где балл1 и балл2 - баллы предметов. Надо написать программу, показывающую имена и фамилии ненабравших мин. балла - 30.

Question

На вход подается строка имеющая вид: ФАМИЛИЯ ИМЯ БАЛЛ1 БАЛЛ 2 ФАМИЛИЯ ИМЯ... Где балл1 и балл2 - баллы предметов. Надо написать программу, показывающую имена и фамилии ненабравших мин. балла - 30.

Гость

Ответ(ы) на вопрос:

Accepted Answer

Напишу программу на Паскале, если нужна на другом языке, можешь удалять. program ball ; var a, b:string ; c, d, z: integer ; begin write ( 'введите фамилию, имя и баллы по двум предметам' ) ; read ('a', 'b', c, d) z:=c+d if z<30 then writeln ('a', 'b')