var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
# Python 3.X
source = input('Введите строку: ')
ret = ''
for idx, char in enumerate(source):
try:
next = source[idx + 1]
if char.isdigit() and next.isdigit():
qt = 10 * int(char) + int(next)
next = source[idx + 2]
else:
qt = int(char)
except:
ret += char
else:
ret += next * (qt - 1)
print('Ответ:', ret)
Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
625Кбайт = 625*1024*8 = 5120000бит
5120000/128000=40 сек