Задача 7 Урок 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
var a,b,c,d : integer; begin writeln ('vvedite chislo A '); readln(a); writeln ('vvedite chislo B '); readln(b); writeln ('vvedite chislo C '); readln(c); writeln ('vvedite chislo D '); readln(d); if ((a>b) and (a>c) and (a>d)) then writeln ('Bolshee chislo A ', a); if ((b>c) and (b>a) and (b>d)) then writeln ('Bolshee chislo B ', b); if ((c>a) and (c>d) and (c>b)) then writeln ('Bolshee chislo C ', c); if ((d>a) and (d>c) and (d>b)) then writeln ('Bolshee chislo D ', d); readln(); end.
- Log in to post comments
- 630 reads