Var x1,x2, dx, x:integer;
begin
readln(x1, x2, dx);
x:=x1;
write('x':3);
writeln('y':3);
repeat
write(x:3);
writeln(x*2:3);
x:=x+dx;
until x>x2;
end
Задание 1.
1 байт = 8 бит.
7 байт = 56 бит.
2Кб = 2000 бит.
10 байт = 80 бит.
25 байт = 200 бит.
Задание 2.
24 бита = 3 байта.
72 бита = 9 байт.
8 Кб = 1000 байт.
96 бит = 12
184 бит = 23 байта.
4 Кб = 500 байт.
Задание 3.
3 Мб = 24000 КБ.
24576 бит = 196,608 КБ.
2048 байт = 16,384 КБ.
10240 байт = 81,92 КБ .
2 Мб = 16000 КБ .
8 Мб = 64000 КБ.
5 байт = 40 бит.
8 килобайт = 8000 байт
1 мегабайт = 1000000 байт
88 бит = 11 байт
20 терабайт = 20000 гигабайт
9 байт = 72 бит
18 килобайт = 18000 байт
4 мегабайта = 4000000 байт
152 бита = 19 байт
4 терабайт = 4000 гигабайт
25 байт = 200 бит
30 килобайт = 25000 байт
9 мегабайт = 9000000 байт
6 килобайт = 48000 бит
288 бит = 36 байт
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p.IsEven and (p > 100))
.Min
.Println
end.
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
int main(void)
{
setlocale(LC_ALL, "Russian");
int n, iuneven = -1;
scanf("%d", &n);
int *a = (int*)malloc(n * sizeof(int));
for (int i = 0; i < n; i++)
scanf("%d", &a[i]);
for (int i = 0; i < n; i++)
if (a[i] % 2 == 1)
{
iuneven = i;
break;
}
free(a);
iuneven == -1 ? printf("Нечетное число не найдено\n") : printf("%d\n", iuneven);
return 0;
}
