Предмет: Информатика,
автор: OOOOOlllxxxxx33321
дано 4 числа. найти самую большую первую цифру из чисел.
Нужно зделать двумя процедурами. 1 процедура нахождения 1 цифры числа, 2 сравнение этих 4 цифр из чисел и нахождение самого большого. помогите плиз
Ответы
Автор ответа:
0
var a, b, c, e : integer;beginreadln(a);readln(b);readln(c);readln(e);while a div 10 <> 0 do a:= a div 10;while b div 10 <> 0 do b:= b div 10;while c div 10 <> 0 do c:= c div 10;while e div 10 <> 0 do e:= e div 10;if (a>b) and (a>c) and (a>e) then writeln(a);if (e>a) and (e>b) and (e>c) then writeln(e);if (c>a) and (c>b) and (c>e) then writeln(c);if (b>a) and (b>c) and (b>e) then writeln(c);end.
Автор ответа:
0
var a, b, c, e : integer;
begin
readln(a);
readln(b);
readln(c);
readln(e);
while a div 10 <> 0 do a:= a div 10;
while b div 10 <> 0 do b:= b div 10;
while c div 10 <> 0 do c:= c div 10;
while e div 10 <> 0 do e:= e div 10;
if (a>b) and (a>c) and (a>e) then writeln(a);
if (e>a) and (e>b) and (e>c) then writeln(e);
if (c>a) and (c>b) and (c>e) then writeln(c);
if (b>a) and (b>c) and (b>e) then writeln(c);
end.
begin
readln(a);
readln(b);
readln(c);
readln(e);
while a div 10 <> 0 do a:= a div 10;
while b div 10 <> 0 do b:= b div 10;
while c div 10 <> 0 do c:= c div 10;
while e div 10 <> 0 do e:= e div 10;
if (a>b) and (a>c) and (a>e) then writeln(a);
if (e>a) and (e>b) and (e>c) then writeln(e);
if (c>a) and (c>b) and (c>e) then writeln(c);
if (b>a) and (b>c) and (b>e) then writeln(c);
end.
Похожие вопросы
Предмет: Алгебра,
автор: adilnuraliev95
Предмет: Английский язык,
автор: sarkutzharkun
Предмет: Биология,
автор: Arbkolvualy
Предмет: География,
автор: Аноним