Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
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.
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
Ответ:
Таблица находится во вложениях
A-50 Б-30 В-20 Г-5
Один из возможных вариантов кодирования:
А=0 (1 бит) Б=10 (2 бит) В=110(3 бита) Г=111 (3 бита)
Всего: 50*1+30*2+20*3+5*3=50+60+60+15=185 (бит) <---- ответ