var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Ми ми ми ми ми ми ми ми ми ми ми ми ми
I=1,44Мбайт=1474,56Кбайт=1509949,44байт=12079595,52бит
Uses crt;
var a: array[1..6]of integer;
i, min: integer;
begin
clrscr;
min := maxInt;
Writeln('введите элементы массива');
for i := 1 to 6 do
begin
readln(a[i]);
if (min > a[i]) then min := a[i];
end;
writeln('min=', min);
repeat until keypressed;
end.
1. for i := 2 to n div 2 do if (n mod i = 0) and ((n mod c = 0) or (n mod d = 0)) then s := s + i;
2. for i := 2 to n div 2 do if (n mod i = 0) then begin s := s + i; inc(c); end;
writeln( 'Среднее: ', s / c );