Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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 k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
Популярные вопросы