Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
<span>Для перевода числа из любой системы счисления в
десятичную систему надо содержимое каждого
разряда умножить на его "вес" (то есть на основание системы в степени
n-1, где n-номер разряда), а затем суммировать полученные результаты.
В
разрядах, где шестнадцатеричная цифра записана буквой, нужно записать
вместо неё соответствующее десятичное число (вместо A пишем 10, далее: B=11,
C=12, D=13, E=14, F=15).
Считаем по вышеуказанным правилам:
1) 0010</span>₂<span> = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ = 0*1 + 1*2 + 0*4 + 0*8 = 0+2+0+0 = 2₁₀
</span>1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1*1 + 1*2 + 0*4 + 1*8 = 1+2+0+8 = 11₁₀
11101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ = 1*1 + 0*2 + 1*4 + 1*8 +1*16 = 1+0+4+8+16 = 29₁₀
0111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ = 1*1 + 1*2 + 1*4 + 0*8 = 1+2+4+0 = 7₁₀
0101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ = 1*1 + 0*2 + 1*4 + 0*8 = 1+0+4+0 = 5₁₀
2) 777<span>₈ = </span>7*8⁰ + 7*8¹ + 7*8² = 7*1 + 7*8 + 7*64 = 7+56+448 = 511₁₀
375₈ = 5*8⁰ + 7*8¹ + 3*8² = 5*1 + 7*8 + 3*64 = 5+56+192 = 253₁₀
111₈ = 1*8⁰ + 1*8¹ + 1*8² = 1*1 + 1*8 + 1*64 = 1+8+64 = 73₁₀
1015₈ = 5*8⁰ + 1*8¹ + 0*8² + 1*8³ = 5*1 + 1*8 + 0*64 + 1*512 = 5+8+0+512 = 525₁₀
3) 15₁₆ = 5*16⁰ + 1*16¹ = 5*1 + 1*16 = 5+16 = 21₁₀
A6₁₆ = 6*16⁰ + 10*16¹ = 6*1 + 10*16 = 6+160 = 166₁₀
1F5₁₆ = 5*16⁰ + 15*16¹ + 1*16² = 5*1 + 15*16 + 1*256 = 5+240+256 = 501₁₀
63<span>₁₆ = 3*16⁰ + 6*16¹ = 3*1 + 6*16 = 3+96 = 99₁₀</span>
Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.
Program summa;
var i,n:integer;
begin
for i:=10 to 15 do
n:=n+i;
writeln('Summa 4isel ot 10 do 15= ',n);
end.<span>
</span>