Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program programxy; const n=100;
var inputtext : integer; begin randomize;
var x : = random(n) + 1;
var y : = random(n) + 1;
var z : = x - y;
writeln('решите пример: ', x, ' - ', y, ' = ');
readln(inputtext);
if inputtext = z then writeln('правильно! ')
else writeln('вы ошиблись! правильный ответ: ', z)
end.
где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.
program xxx;
var i, n : integer;
begin
write ('введите число n-');
readln (n);
writeln('делители числа: ');
for i : =1 to n do
if n mod i = 0 then writeln (i)
Популярные вопросы