Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Работаем в Pascal ABC
1. Найти количество цифр меньше 6 в целом x.
Тест: 254904 - 5
2. Найти сумму первой и последней цифры в целом x.
Тест: 254904 - 6
3. Найти сумму самой большой и самой маленькой цифры в целом x
Тест: 254904 - 9

Ответ оставил Гость

1.

var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
  begin
  if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
  x := x div 10
  end;
write(s)
end.

2.

var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
  x := x div 10;
write(x + s)
end.

3.

var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
    begin
    if x mod 10 > a then a := x mod 10;
    if x mod 10 < b then b := x mod 10;
    x := x div 10;
    end;
write(a + b)
end.