m-восраст человека , k- ( от 1 до 99)- любой число ,ввелся число m и k " мой восраст надо быть болшим (меньшим)" надо сделать программу
Answers & Comments
therealcf2014
Var m, k: integer; begin write('Введите m: '); read(m); k:= random(99)+1; if m>k then writeln('Ваш возраст больше.') else writeln('Ваш возраст меньше.') end.
Answers & Comments
begin
write('Введите m: ');
read(m);
k:= random(99)+1;
if m>k then
writeln('Ваш возраст больше.')
else
writeln('Ваш возраст меньше.')
end.