1) Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. 2) Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.

Сделайте в Паскале Pascal

Question

Информатика

Маркси

8 июля, 18:35

1) Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. 2) Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.

Сделайте в Паскале Pascal

+3

Ответы (1)

Знаете ответ?

Мишука · Answer 1

1

program odin;

uses crt;

var x, y, z:real;

begin

clrscr;

read (x) ;

y:=x mod 10;

z:=x div 10;

if y>z then

writeln (y)

else

writeln (z) ;

end.