Помогите пожалуйста,срочно! Дано 3-значное число.Посчитать,сколько в этом числе четных цифр.Проверить,принадлежит ли промежутку от 1 до 3 последняя цифра.(Паскаль)
Ответы на вопрос
Ответил kitchenrecords
0
var n, c: integer;
b: boolean;
begin
write('Введите число: ');
readln(n);
writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]);
while (n>0) do begin
c := c + 1 - (n mod 2) ;
b := (n mod 10) in [1..3];
n := n div 10;
end;
writeln('Цифра слева в 1..3: ', b);
writeln('Четных цифр ', c);
end.
b: boolean;
begin
write('Введите число: ');
readln(n);
writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]);
while (n>0) do begin
c := c + 1 - (n mod 2) ;
b := (n mod 10) in [1..3];
n := n div 10;
end;
writeln('Цифра слева в 1..3: ', b);
writeln('Четных цифр ', c);
end.
Новые вопросы