Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.
Var n,a,b,c,d,i:integer;
begin
readln(n);
a:=1; b:=1; c:=1;
write(a:2,b:2,c:2);
for i:=4 to n do
begin
d:=a+b+c;
a:=b;
b:=c;
c:=d;
write(' ',d);
end;
end.
Пример:
15
<span> 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209</span>
При использовании палитры из 4 цветов для хранения одного пикселя требуется log(2)4 = 2 бита. Память для хранения изображения: 66*66*2 бит = 8712 бит