Помогите пожалуйста. Решение нужно сейчас срочно!!! 1.вывести на экран наибольший рост в классе из 10 учеников
Answers & Comments
miha41
Program Zadacha1; var a,b,c:integer; begin writeln("Введите рост первого ученика: "); read(a); writeln("Введите рост второго ученика: "); read(b); writeln("Введите рост третьего ученика: "); read(c); If (a>b) and (a>c) then writeln("Наибольший рост у первого ученика!"); If (b>a) and (b>c) then writeln("Наибольший рост у второго ученика!"); If (c>a) and (c>b) then writeln("Наибольший рост у третьего ученика!");
Answers & Comments
var a,b,c:integer;
begin
writeln("Введите рост первого ученика: ");
read(a);
writeln("Введите рост второго ученика: ");
read(b);
writeln("Введите рост третьего ученика: ");
read(c);
If (a>b) and (a>c) then writeln("Наибольший рост у первого ученика!");
If (b>a) and (b>c) then writeln("Наибольший рост у второго ученика!");
If (c>a) and (c>b) then writeln("Наибольший рост у третьего ученика!");