Регистрация
артемий1456
04.12.2022 09:56
Информатика
Есть ответ 👍

Дано натуральное число. верно ли, что первая цифра данного числа - четная? решить в турбо паскале, без массивов.

158
358
Посмотреть ответы 2

Ответы на вопрос:

Кимчи12
Кимчи12
4,8(74 оценок)
Program z1;   var n: integer; begin  write('введите число - ');   readln(n);   while n> 9 do    n: =n div 10;     if (n mod 2= 0) then writeln('четна')                    else writeln('нечетна'); end.
Кашмамининагений
Кашмамининагений
4,7(54 оценок)

var

  k5, k9, k45, k, i, x: integer;

begin

  k5 : = 0; k9 : = 0; k45 : = 0;

readln(n);

  while true do

  begin

    readln(x);

    if x = 0 then

      break;


    if (x mod 5 = 0) and (x mod 9 < > 0) then

      k5 += 1;

    if (x mod 5 < > 0) and (x mod 9 = 0) then

      k9 += 1;

    if x mod 45 = 0 then

      k45 += 1;

  end;

  k : = k5+k9-k45;

  write(k)

end.

Популярно: Информатика