Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы

@Vanya_11 · Регистрация: 20.05.2013

Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы. Нарисовать блок-схему.

Pascal

var x, L, M: integer;
begin
readln(x);
L := 0; M := 0; x: = 777;
while x>0 do
begin
L := L+1;
if M < (x mod 10) then
begin
M := x mod 10;
end;
x := x div 10;
end;
writeln(L); write(M);
end.

@Fakeoke · 23.05.2013, 23:46

<тут будет ваше введенное любое число>
3
7

@Fakeoke 491 / 371 / 208 Регистрация: 28.07.2011 Сообщений: 2,092
	23.05.2013, 23:46	2
	<тут будет ваше введенное любое число> 3 7 1

Опции темы