1 Кб=1024 байт , 1 байт=8 бит, умножаем 1024*8 и получим 1 Кб
1 Кб=8192 бит
Programm Pens;
var Year: integer;
begin
Readln ('Введите Ваш возраст:', Year);
Year := Year + 58;
Writeln('Ваш возраст выхода на пенсию: ', Year);
end;
Смотрим результат сложения младших разрядов.
6 + 3 = 2. Понятно, что это не 2, а 12, единица пошла переносом в старший разряд.
В десятичной системе 6 + 3 = 9. Следовательно, 12 в системе счисления по основанию х равно 9.
1·х + 2 = 9 ⇒ х = 7
Ответ: 7
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.