8192 / 8 = 1024 байт - переводим в байты
1024 / 1024 = 1 килобайт - переводим в килобайты
===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
Балкон
баскетбол
гимнастика
гитара
канал
посетить
почерк
расчет
расчетливый
спортсмен
справа
справедливый
чехол
шоссе
шофёр
X:=4;
y:=16;
t:=4;
x:=0; (остаток от деления 16 на 4)
y:=5; (4+1)
как то так
P.S. в скобках мои пояснения их писать не надо
<span>k:=pos(' ',s); - позиция пробела
</span><span>t:=Copy(s,k+1,3); - копирование с 6 символа + 3(как-то так)
</span>Ответ: зим<span />