Файл - поименованная часть диска, может быть документом, фотографией, фильмом или другими данными.) Документ - это файл, содержащий какой-либо текст =) Как-то так, наверное...
Var s: string; i, z, n, a: integer; begin readln(a); s := floattostr(a); for i := 1 to length(s) do begin if (s[i] = '0') then inc(z); if (s[i] = '9') then inc(n); end; writeln(z, ' ', n); if (z > n) then writeln('"0" > "9"'); if (z < n) then writeln('"0" < "9"'); if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!') else if (z = n) then writeln('"0" = "9" = ', z); end.
Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)
Документ - это файл, содержащий какой-либо текст =) Как-то так, наверное...