Решение задач на ветвление

Решение задач на ветвление.

Пример задачи Присвойте величине а значение наибольшего из трех заданных чисел. Математическая запись: Дано: a, b, c – целые числа. Присвоить а – наибольшее значение. Решение: Если a>b, то а=а, иначе а=b; Если a>с, то а=а, иначе а=с.

Текст программы: program naibolsh; var a,b,c:integer; begin write ('vvedite tri chisla'); readln (a,b,c); if a>b then a:=a else a:=b; if a>c then a:=a else a:=c; write ('naibolshee=' ,a); readln end. Дано: a, b, c – целые числа. Присвоить а – наибольшее значение. Решение: Если a>b, то а:=а, иначе а:=b; Если a>с, то а:=а, иначе а:=с.

Задача Даны числа х и у. Вычислите число z, равное х+у, если х

Текст программы: program summa; var x,y:integer; z:real; begin write ('vvedite dva chisla'); readln (x,y); if xу, z может быть отрицательным числом. Решение: Если х

Задачи: Проверьте, есть ли среди трех заданных чисел равные. Даны два действительных числа. Меньшее из них замените полусуммой этих чисел, а большее – их произведением. Даны три числа a, b и c. Выясните, верно ли a