Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 82.

Написать функцию, подсчитывающую количество цифр целого числа. Используя ее, определить, в каком из двух данных чисел больше цифр.

uses crt;
var n1,n2:longint;
k1,k2:byte;
function zifr (x:longint):integer;
var k:integer;
begin
  k:=0;
  while x<>0 do
    begin
      inc(k);
      x:=x div 10;
    end;
  zifr:=k;
end;

begin
  clrscr;
  writeln('n1=n2=');readln(n1,n2);
  k1:= zifr(n1); k2:= zifr(n2);
  if k1 =k2 then writeln ('Одинаково')
    else
      if k1>k2 then writeln('B n1>n2')
        else writeln('B n2>n1 ');
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100