Задом на перед написать и переставить первую букву в конец
3Мбайт = 3*1024*8 Кбит = 24576 Кбит
24576 / 2048 = 12 сек
t = 12 сек
var
n, k, i, j: integer;
s: array[1..15] of integer;
begin
assign(input, 'task2.in'); reset(input); readln(n, k); close(input);
assign(output, 'task2.out'); rewrite(output);
for i := 1 to n do
if i <= k then s[i] := 1 else s[i] := 0;
for i := 2 to n do
begin
j := i - 1;
while (j > 0) and (j >= i - k) do
begin
s[i] := s[i] + s[j];
j := j - 1
end
end;
write(s[n]);
close(output)
end.
как то так:
b=15
a=9
===========================================
1)
var a, z, s: integer;
begin
write('<em>Введите число: </em>');
read(z);
a := z;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10
end;
write('<em>Сумма цифр числа</em> ', z, ' = ', s)
end.