программирование pascal
(через цикл)
дано натуральное число.
верно ли что оно начинается на Х, и заканчивается на У?
Аноним:
зачем цикл когда ты можешь сравнить первый и последний символ строки?
Ответы
Ответ дал:
1
Ответ:
var
n: integer;
x, y, b: byte;
begin
read(n, x, y);
while n > 0 do begin
b := n mod 10;
n := n div 10;
end;
if b = x then
writeln('Число начинается на X')
else
writeln('Число не начинается на X');
if n mod 10 = y then
writeln('Число заканчивается на Y')
else
writeln('Число не заканчивается на Y');
end.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад