Простые типы данных

[DidT33rus]

1.1 Дано натуральное число:
-найти количество цифр данного числа, больших А(А вводиться с клавиатуры);
-верно ли, что данное число принадлежит промежутку от А до В и кратно 3,4 и 5(А и В вводиться с клавиатуры)
1.2 Найти сумму всех чисел из промежутка от а до В, кратных 13 и 5.(А и В вводиться с клавиатуры)

[kakawkin]

-найти количество цифр данного числа, больших А(А вводиться с клавиатуры);
program tt;
const n=10;
var b:array[1..n] of integer;i,a,s:integer;
begin
for i:=1 to n do
begin
write('b[',i,']= ');
readln(b[i]);
end;
write('Enter A: ');readln(a);
s:=0;
for i:=1 to n do
begin
if b[i]>a then s:=s+1;
write('Кол-во цифр больших числа ',a,' = ',s);
end.

[kakawkin]

кратность на числа 3,4,5 можно проверить вот так:

if (a1 mod 3) and (a1 mod 4) and (a1 mod 5) = 0 then write('УРАААА');


mod - определяет остаток от деления. Т.е. если 10 делиться на 2 то остаток 0, то и будет условие if (10 mod 2)=0 then write('AAAAA'); ну где-то так

[ROMA2PVT]

uses CRT;
VAR
 Num, A, B, C: LongInt;
 S: String;
 count, code: Integer;
 ch: Char;
BEGIN
 Write('Введите целое число: ');
 ReadLn(Num);
 writeln('Введите A: ');
 readln(A);
 WriteLn;
 B := Num;
 count:=0;
 while B <> 0 do
 begin
   if B mod 10>A then count:= count + 1;
   B := B div 10;
 end;
 if count = 0 then
  WriteLn('В числе ',Num,' цифр больше ', A, ' нет ')
 else
  WriteLn('В числе ',Num,' цифр больше ', A, ' вот сколько: ', count);
 WriteLn('=== Определение прин длежности ди п зону ===');
 Write('Введите число A: ');
 ReadLn(A);
 Write('Введите число B: ');
 ReadLn(B);
 if A > B then begin C:=A; A:=B; B:=C end;
 Write('Вывод о прин длежности числ  ',Num,' ди п зону [',
   A,', ',B,'] и кр тности 3, 4, 5: ');
 WriteLn( (Num >= A) and (Num <= B) and
   (Num mod 3 = 0) and (Num mod 4 = 0) and (Num mod 5 = 0));

END.

Первая полностью.

Uses crt;
var
A,B,i,s: integer;
begin
clrscr;
write('Введите A: ');
readln(A);
write('Введите B: ');
readln(B);
s:=0;
for i:=A to B do
 begin
 write(i,' ');
  if (i mod 13=0) and (i mod 5=0) then
    s:=s+i;
 end;
writeln;
writeln('Сумма чисел: ',s);
end.

Это 1.2

[DidT33rus]

спасибо большое парни!

для спасибо внизу висы есть