Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
1) 101010 (2) ⇒ 101 010 (2) = 52 (8)
52 (8) = 5х8+2=42 (10)
42 / 16 = 2 и 10 остаток. ⇒ 42 (10) = 2А (16)
2) 127 (8) = 1 010 111 (2)
127 (8) = 1x8^2+2x8+7=64+16+7=87 (10)
87 / 16 = 5 и 7 остаток. ⇒ 87 (10) = 57 (16)
3) 321 (10) / 16 = 20 и 1 остаток. 20 / 16 = 1 и 4 остаток. ⇒ 321 (10)=141 (16)
141 (16) = 1 0100 0001 (2)
1 0100 0001 (2) = 101 000 001 (2) = 501 (8)
4) 3А (16) = 3х16+10 = 48+10 = 58 (10)
3А (16) = 11 1010 (2)
11 1010 (2) = 111 010 (2) = 72 (8)
Итого в строках таблицы
101010 52 42 2А
1010111 127 87 57
101000001 501 321 141
111010 72 58 3А
var
s : integer;
begin
for var i := 0 to 1000 do if i mod 2 > 0 then s += i;
writeln('s=', s);
end.
var
n : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do write(i, ' ');
end.
