profile
Опубликовано 5 лет назад по предмету Информатика от mila00b

помогите составить программу на языке паскаль

Вводится натуральное число Х (Х>9).
1. определить, совпадают ли по значению первая и последняя цифры..
например, Ввод: 727 Вывод: Число начинается и заканчивается цифрой 7
Ввод 123 Вывод Первая и последняя цифры не совпадают.

  1. Ответ
    Ответ дан petyaGavrikov
    var a,b,c:integer;
    begin
    write('a = '); readln(a);
    b:=a mod 10;
    c:=a;
    while c>9 do c:=c div 10;
    if (a>9) 
     then if b=c
            then writeln('Число начинается и заканчивается цифрой ',c)
            else writeln('Первая и последняя цифры не совпадают')
     else writeln('Число < 10');
    end.

    Пример:
    a = 65478
    Первая и последняя цифры не совпадают
  2. Ответ
    Ответ дан furs1975
    прога в приложении============
Самые новые вопросы