Подпрограммы

[Айг]

Подпрограммы

Каждую программу написать с использованием подпрограмм (процедуры и функции)
1. Дано натуральное число. Найти первую и последнюю цифры числа.
2. Определить количество натуральных трехзначных чисел, сумма цифр которых равна заданному числу N.

 

[Евгений]

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.

 

[Евгений]

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.