СРОЧНО,ПОМОГИТЕ,ПОЖАЛУЙСТА 1.Введите двузначное число. Поменяйте в нем порядок следования...

Question

СРОЧНО,ПОМОГИТЕ,ПОЖАЛУЙСТА 1.Введите двузначное число. Поменяйте в нем порядок следования цифр (например, измените число 89 на число 98). Выведите исходное и измененное числа. 2. Введите двузначное число. Найдите сумму цифр числа. 3. Введите двузначное число. Проверьте, равна ли 9 цифра в разряде десятков заданного числа. 4. Введите двузначное число. Проверьте, состоит ли число из одинаковых цифр. 5. Введите двузначное число x. Проверьте, делится ли число x на заданное число y. 6. Присвоить целой переменной h первую цифру из дробной части положительного вещественного числа z (так, если z=78.125, то h=1).

Comments

Язык программирования

---

Английский

Answer 1

program n1;

var num1,num2,i: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

writeln(num1);

for i:=length(numc) downto 1 do  

write(numc[i]);

end.

program n2;

var num1,num2,i,sum: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

for i:=length(numc) downto 1 do  

sum:=strtoint(numc[i])+sum;

writeln(sum)

end.

program n4;

var num1: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

if numc[2]=numc[1] then writeln('yes')

else writeln('no');

end.

program n5;

var num1,num2,i: integer;

begin

write('input number 1 => ');

readln(num1);

write('input number 2 => ');

readln(num2);

if num1 mod num2 = 0 then writeln('yes')

else writeln('no');

end.

program n6;

var num1: real;

numc: string;

h: integer;

begin

write('input number => ');

readln(num1);

numc:=floattostr(num1);

h:=strtoint(numc[pos('.',numc)+1]);

writeln(h);

end.