Программа запрашивает два числа и знаки математических действий. В зависимости от знака выполняется действие

Kemper1902

1 задание Вариант 9. Программа запрашивает два числа и знаки математических действий. В зависимости от выбранного знака выполняется действие и выводится результат. Использовать меню для ввода знака математического действия. 2 задание Вариант 9 Дано натуральное число Верно ли, что оно заканчивается четной цифрой?
1 ответ

Kemper1902

1)
uses crt;
const op=['+','-','/','*'];
var x:char; a,b:real;
begin
clrscr;
write('Первое число = '); readln(a);
write('Второе число = '); readln(b);
repeat
write('Знак матем. действия: ');
readln(x);
until x in op;
write('Результат: ');
case ord(x) of
43: write(a+b:1:2);
45: write(a-b:1:2);
47: write(a/b:1:2);
42: write(a*b:1:2);
end;
readkey;
end.
2)
uses crt;
var a:integer;
begin
clrscr;
write('Введи число: ');
readln(a);
if not odd(a mod 10) then writeln('Заканчивается четной цифрой')
else writeln('HE заканчивается четной цифрой');
readkey;
end.