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