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

@РаКсАнКа · Регистрация: 17.11.2011

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

@КонецСвета · 05.05.2012, 15:02

Pascal

uses crt;
var c1,c2: integer;
 
function KZ (n: integer): byte;
var k: byte;
begin
if n=0 then k:=1 else
   begin
   k:=0;
   while n>=1 do
         begin
         inc(k);
         n:=n div 10;
         end;
   KZ:=k;
   end;
end;
 
begin
write('Число 1: '); readln(c1);
write('Число 2: '); readln(c2);
if KZ(c1)>KZ(c2) then writeln('В первом числе цифр больше') else
   if KZ(c2)>KZ(c1) then writeln('Во втором числе цифр больше') else
      writeln('Количество цифр равно');
end.

@РаКсАнКа 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 54
		1
	Подпрограммы. Определить, в каком из данных двух чисел больше цифр 05.05.2012, 08:32. Показов 2943. Ответов 1 Метки нет (Все метки) Составить программу, определяющую, в каком из данных двух чисел больше цифр. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение