Задача 1 Урок 14.1
Primary tabs
Напишите процедуру, которая просит пользователя ввести три числа, и потом выводит их в обратном порядке
procedure podprog(); var a,b,c:integer; begin writeln('vvedite chislo'); readln(a); writeln('vvedite chislo'); readln(b); writeln('vvedite chislo'); readln(c); writeln(c,b,a); end; begin podprog(); writeln('End'); readln(); end.
Вывод консоли:
vvedite chislo 1 vvedite chislo 3 vvedite chislo 5 531 End
- Log in to post comments
- 281 reads