![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
gryzlik |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Реальное имя: Катя Репутация: ![]() ![]() ![]() |
Еще одна задача...Тоже вот порешала,а она не работает!
Составить программу, определяющую, в каком из данных двух чисел больше цифр. var a,b:integer; function Kol_c1(a:integer) :integer; var k,razr : integer; BEGIN k:=0; repeat k:=k+1; razr:=a mod 10; a:=a div 10 until a=0; Kol_c1:=k; END; function Kol_c2(b:integer) :integer; var n,razr : integer; BEGIN n:=0; repeat n:=n+1; razr:=b mod 10; b:=b div 10 until b=0; Kol_c2:=n; END; procedure Sravnenie(Kol_c1,kol_c2:integer); begin if kol_c1(a)>kol_c2(b) then writeln('V chisle a bolshe cifr'); if kol_c1(a)<kol_c2(b) then writeln('V chisle b bolshe cifr'); if kol_c1(a)=kol_c2(b) then writeln('Kolichestvo cifr V chislah ravno'); end; BEGIN write('Vvedite pervoe chislo'); readln(a); writeln('V dannom chisle',Kol_c1(a),' cifr'); readln(Kol_c1); write('Vvedite vtoroe chislo'); readln(b); writeln('V dannom chisle',Kol_c2(b),' cifr'); readln(Kol_c2); writeln('V chisle',Sravnenie,'bolshe cifr'); readln; END. Помогите пожалуйста.Заранее спасибо! |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 0:41 |