8класс

Страницы 149-156 §3.4 номер 6, ГДЗ по информатике за 8 класс к учебнику Босовой

Многообразие способов записи ветвлений. Страницы 149-156 §3.4 номер 6

страницы 149-156 параграф 3.4 номер 6 учебнику по информатике 8 класс Босова

Программа, определяет: есть ли среди цифр данного числа одинаковые; является ли данное число перевёртышем

а)

program z6a;

var

  x, a, b, c: integer;

begin

  write('введи х - трехзначное число>');

  readln(x);

  a := x mod 10;

  b := x div 100;

  c := x mod 100 div 10;

  if (a = b) or (a = c) or (b = c) then write('Да') else write('Нет');

end.

б)

program z6b;

var

  x, a, b: integer;

begin

  write('введи х - трехзначное число>');

  readln(x);

  a := x mod 10;

  b := x div 100;

  if (a = b) then write('Перевертыш') else write('Нет');

end.

Сообщить об ошибке
Закрыть