15.05.2016, 14:38 | #1 (permalink) |
Новичок
Регистрация: 15.05.2016
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Подпрограммы
1. Дано натуральное число. Найти первую и последнюю цифры числа. 2. Определить количество натуральных трехзначных чисел, сумма цифр которых равна заданному числу N. |
15.05.2016, 14:38 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные топики могут просветить решение проблемы Паскаль, подпрограммы Подпрограммы |
15.05.2016, 15:16 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
1.
Код:
uses crt, sysutils; procedure P_1(n1:integer); var s:string; begin s:=IntToStr(n1); Writeln('Pervaja cifra = ',s[1]); Writeln('Poslednjaja cifra = ',s[Length(s)]); end; var n:integer; begin ClrScr; Write('Cislo = '); Readln(n); Writeln; P_1(n); ReadKey; end. |
15.05.2016, 15:30 | #3 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
2.
Код:
uses Crt; function F_1(n1:integer):integer; var a,b,c,t:integer; begin t:=0; for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if (a+b+c)=n1 then Inc(t); F_1:=t; end; var n:integer; begin ClrScr; Write('Cislo = '); Readln(n); Writeln; Writeln('Variantov = ',F_1(n)); ReadKey; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|