Предмет: Информатика,
автор: etriw
1)Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. 2)Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.
Сделайте в Паскале Pascal
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
А что значит uses crt и clrscr
Похожие вопросы
Предмет: Алгебра,
автор: densin1306
Предмет: Литература,
автор: dubsedik
Предмет: Математика,
автор: varyakiseleva2009
Предмет: Литература,
автор: Ленок20031501
Предмет: Геометрия,
автор: настюша1121