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

Тема в разделе "Pascal and Delphi", создана пользователем -, 13 окт 2009.

  1. Гость

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

    isqoff Гость

    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.
     
Загрузка...
Похожие Темы - помогите пожалуйста решить
  1. GREED
    Ответов:
    1
    Просмотров:
    545
  2. merrs
    Ответов:
    1
    Просмотров:
    1.310
  3. Alexey075
    Ответов:
    1
    Просмотров:
    1.695
  4. Andrey7284
    Ответов:
    1
    Просмотров:
    1.165
  5. TankOo
    Ответов:
    1
    Просмотров:
    1.265

Поделиться этой страницей