Задача 2 Урок 14.1
Primary tabs
Напишите процедуру, которая получает на вход два целых числа и выводит на экран то, которое больше.
program u141z2; var a, b: integer; procedure bolshe(c, d: integer); begin write('bolshe: '); if c > d then write(c) else write(d) end; begin writeln('Vvedite 2 chisla '); readln (a, b); bolshe(a, b); readln (); end.
- Log in to post comments
- 319 reads