a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
#include <iostream>
int main()
{
double x, R = 1;
std::cin >> x;
int i = 1;
do
{
R = (x - i - 1) / (x - i) * R;
++++i;
}
while (i != 63);
std::cout << R;
}<span>
</span>
Третье, наверное
/////////////
Var rez, error, x: integer;
t, t2: string;
begin
write('Введите пятизначное число: ');
readln(t);
val(t, x, error);if ( x <= 9999 ) OR ( x >= 100000 ) then writeln('Число не пятизначное!')
else
begin
t2 := IntToStr(x);
t2 := t2[5] + t2[4] + t2[3] + t2[2] + t2[1];
val(t2,rez,error);
rez := x - rez;
writeln('Разность чисел ', t, ' и ', t2, ' = ', rez);
end;
<span>end.</span>
Чем помочь кидай картинку