E =15 (10cc)
A=10 (10cc)
3 2 1 2 -1 -2 <--- позиции цифр в числе
E 4 1 A, 1 2 (16cc) =15*16^3+4*16^2+1*16+10*16^0+1*16^-1+2*16^-2=
=61440 + 1024 + 16+10 + 0,0625 +0,0078125=
=62490,0703125
Function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;
---------------Алфавит---------------
1.
var a,b,c:integer;
begin
write('Введите положительное двузначное число: ');
readln(a);
b:=a div 10;
c:= a mod 10;
writeln('Сумма цифр числа ',a, ' равна ', b + c)
end.
2.
var a,b,i,s,k:integer;
begin
write('Введите границы промежутка: ');
readln(a,b);
s:=0;
k:=a;
for i:=k to b do
begin
if k mod 3 = 0 then s:=s+k;
k:=k+1
end;
writeln('Сумма целых положительных чисел кратных 3 от ', a, ' до ',b, ' равна ',s)
end.
3.
var a,b,c,i,k,p:integer;
begin
k:=0;
p:=100;
for i:=p to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if (a+b+c) mod 5 = 0 then k:=k+1;
p:= p+1;
end;
writeln('Количество положительных трёхзначных чисел, сумма цифр которых кратна 5 равно ',k);
readln;
end.
4.
var a,b,c,i,k,p:integer;
begin
k:=0;
p:=10;
for i:=p to 99 do
begin
a:= i div 10;
b:= i mod 10;
if (((a+b) mod 3 = 0) and (b=4)) or (((a+b) mod 3 = 0) and (b=8)) then writeln(i);
p:= p+1;
end
end.
Const N = 5; M = 10; var a: array [1..N, 1..M] of real; s, R: real; kol, i, j: integer; //kol - количество чисел begin writeln('Введите R'); readln(R); for i:= 1 to N do for j:= 1 to M do begin writeln('Введите a[', i, ', ', j, ']'); readln(a[i, j]); if a[i, j] > R then begin kol:= kol + 1; s:= s + a[i, j]; end; end; s:= s / kol; writeln(kol, ' чисел > ', R); writeln('Среднее арифметическое равно ', s);<span>end. </span>