Вводится четырехзначное число. вывести на экран наибольшую цифру этого числа. паскаль
annabragina19
1
04.10.2019 18:00
2
Другие вопросы по теме Информатика
micser2017
05.03.2021 14:09
elizavety
05.03.2021 14:09
ulaklimenko49
10.02.2022 15:00
gadjimira
10.02.2022 15:00
ejjekskaksk
10.02.2022 15:00
svetlana196420
10.02.2022 14:59
xkhs1sjsiXjjs
10.02.2022 14:54
smyslovgleb200
15.12.2020 18:22
2006215
15.12.2020 18:23
Популярные вопросы
- Жумыс істеу тәртібі радиоктивті, электромагниттік толқындардың ультрадыбыстардың,...
3 - Какие науки включают в себя биологию как они называются Что изучают...
1 - Активти металдар сумен арекеттескенде не тузеди...
1 - Схема растворимости веществ в воде...
3 - Шамалармен амалдардың қалай есептелетінін есіңе түсір жəне есепте 4сынып...
1 - Прочитайте статью о празднования национального Дня семьи в Казахстане...
3 - Decide if the sentences are true or false The audio:1. The book Twilight...
3 - 1 Complete the sentences from exercise 2 on page 4. Then answer questions...
2 - «Тәуелсіздікке қол жеткізгеннен гөрі оныұстап тұру әлдеқайдаҚИЫН» 4 сойлем...
3 - 1.2. Түзу бойынан А және В екі нүктесін алып, АВ кесіндісінің ортасын...
1
program dz2;
var a,b,c,d,f,max:Integer;
begin
Writeln('введи число');
read(a);
b:= a div 1000;
c:= (a div 100) mod 10;
d:= (a div 10) mod 10;
f:= a mod 10;
max:=b;
if b<c then
max:=c;
if c<d then
max:=d;
if d<f then
max:=f;
Write(max);
end.