помогите пожалуйста решить две задачки по программированию (pascal)

  • Автор темы Guest
  • Дата начала
G

Guest

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

isqoff

#2
uses crt;
var i,sum1,sum2,err:integer;
x,y:string;

BEGIN
write('Введите первое число :');
readln(x);
write('Введите второе число :');
readln(y);

sum1:=0;
sum2:=0;

for i:=1 to Length(x)do
if (x < #48)or(x > #57)
then continue
else sum1:=sum1+1;

for i:=1 to Length(y)do
if (y < #48)or(y > #57)
then continue
else sum2:=sum2+1;

if sum1 = sum2
then writeln('Цифр равное количество')
else if sum1 > sum2
then writeln('В первом числе цифр больше')
else writeln('Во втором числе цифр больше');


END.