Предмет: Информатика, автор: etriw

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

Ответы

Автор ответа: ivisan
0
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.

Автор ответа: etriw
0
А что значит uses crt и clrscr
Похожие вопросы
Предмет: Математика, автор: varyakiseleva2009