Var begin readln - 43

< Предыдущая
Фото - 43
Следующая >
Var begin readln. Var s, k: integer; begin readln s readln k if s div 2 k then writeln да else writeln нет end.. Var i,a,b: integer; begin Max:=0.


Все фотографии