Задача 2 Урок 20
Primary tabs
Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.
var A, B :integer; function num(A, B:integer):integer; begin if(A > B) then A := A - 1; else if(A < B) then A := A + 1; if(A <> B) then writeln(A); num(A,B); end; begin readln(A); readln(B); num(A,B); readln(); end.
- Log in to post comments
- 956 reads
vedro-compota
Sun, 10/03/2021 - 12:56
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)