Программа: Сложение четырех чисел больше пяти

Задача: Ввести четыре числа вещественных числа, и сложить те числа, которые больше пяти

PROGRAM vesh_chiso;
	var  a,b,c,d,a1,b1,c1,d1 :real;
BEGIN
	WriteLn ('Введите 4 вещественных числа по порядку:');
	ReadLn (a,b,c,d);
	if a>5 then a1:=a else a:=0;
	if b>5 then b1:=b else b:=0;
	if c>5 then c1:=c else c:=0;
	if d>5 then d1:=d else d:=0;
	WriteLn ('Сумма чисел больше 5 равна: ',a,' + ',b, ' + ' ,c, ' + ' ,d, ' = ' ,a+b+c+d);
END.

Просмотрело: 2204

Возможно, Вы искали: