Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет ответ и выводит сообщение "правильно! " или "вы ошиблись" и правильный результат
BEGIN writeln('a). Введите два целых числа'); write('Первое число: '); readln(a); write('Второе число: '); readln(b);
if (a=b) then writeln('Числа равны.') else if (a<b) then writeln('Наименьшее число = ', a) else writeln('Наименьшее число = ', b); writeln('');
write('б). Введите число: '); readln(a); if (a>0) then begin b:=a-30; writeln('Число неотрицательное. ', a,'-30=',b); end else if (a<0) then begin b:=a+70; writeln('Число отрицательное. ', a,'+70=',b); end else writeln('Число равно 0'); writeln('');
write('с). Введите целое число: '); readln(a); if odd(a) then writeln('Число ', a,' нечетное') else writeln('Число ', a,' четное');
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var k:=20; var a:=ArrRandom(k,-50,50); a.Println; var n:=ReadInteger('Введите число циклических сдвигов влево:') mod k; if n>0 then a:=(a[n:]+a[:n]).ToArray; a.Println end.
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.
Где-то так это выглядит на Паскале. Ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.