1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 13 окт 2009.

  1. Гость

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

    isqoff Гость

    Репутация:
    0
    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.
     
Загрузка...

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