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