var
i,s:longint;
begin
for i:=20 to 60 do if i mod 5=0 then inc(s,i);
writeln(s);
end.
Я пытаюсь создать объект, который де-факто является аналогом объекта Python list . В моем коде у меня есть следующие классы: object_type , type_type , none_type , bool_type , int_type , float_type , bytes_type , где object_type -абстрактный класс.
Абстрактный класс имеет некоторые виртуальные функции, такие как type_type __type__(void) , bytes_type __name__(void) , bytes_type __repr__(void) , bool_type __bool__(void) , int_type __int__(void) , float_type __float__(void) , bytes_type __bytes__(void) .
Объяснение:
var
i,s:integer;
begin
s:=0;
for i:=20 to 60 do
if i mod 5 =0 then s:=s+i;
writeln(s);
end.