Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
<span>25 div 3= 8.
3*8=24.
8- результат </span>целочисленного деления.
Ответ:
149₁₆ = 511₈
14B₁₆ = 513₈
178₁₆ = 570₈
17C₁₆ = 574₈
15A₁₆ = 532₈
Объяснение:
149₁₆ = 9*16⁰ + 4*16¹ + 1*16² = 329₁₀
329₁₀ = 1*8⁰ + 1*8¹ + 5*8² = 511₈
14B₁₆ = B*16⁰ + 4*16¹ + 1*16² = 331₁₀
331₁₀ = 3*8⁰ + 1*8¹ + 5*8² = 513₈
178₁₆ = 8*16⁰ + 7*16¹ + 1*16² = 376₁₀
376₁₀ = 0*8⁰ + 7*8¹ + 5*8² = 570₈
17C₁₆ = C*16⁰ + 7*16¹ + 1*16² = 380₁₀
380₁₀ = 4*8⁰ + 7*8¹ + 5*8² = 574₈
15A₁₆ = A*16⁰ + 5*16¹ + 1*16² = 346₁₀
346₁₀ = 2*8⁰ + 3*8¹ + 5*8² = 532₈
Var
S, C, Cmax: string;
i, j, k, max: integer;
Begin
Write('Введите предложение: ');ReadLn(S);
S := UpperCase(S) + '.';
max := 0;
i := 1;
while (i <= Length(S)) do
begin
C := '';
while (S[i] in ['А'..'Я']) do
begin
C := C + S[i];
i += 1;
end;
k := 0;
For j := 1 to Length(C) do
if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then
k := k + 1;
if (k > max) then
begin
max := k;
Cmax := C;
end;
i += 1;
end;
WriteLn('Слово с наибольшим количеством гласных: ',Cmax);
End.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
Если прописать в паскаль этот алгоритм через цикл while (цикл с <span>предусловием)</span>, то ответ будет B=25.
var a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.