Самолёт, Паровоз, Самокат, Вертолёт.
В результате выполнения программы по данному алгоритму, получится 8
var s1,s2,a,b: integer; i: integer;begin s1:=0; s2:=0; a:=1; b:=3; for i:=a to b do begin if i mod 2=0 then s2:=s2+i*i else s1:=s1+i; end; s1:=s1+s2; writeln(s1);end.
Максимальное количество цветов равно двум в степени, равной количеству бит, отведенных под хранения информации о цвете. В данном случае два во второй степени - <u>четыре цвета</u>.
Сумма от i=1 до n
выражения (X i-ое / (1 + модуль Y i-ое ))
Вот как расшифровывается знак суммы:
(X1/(1+|Y1|)) + (X2/(1+|Y2|))+ ... (Xn/(1+|Yn|))
А знак модуля возвращает абсолютную величину числа, то есть если число положительное возвращает само число, если оно отрицательное - возвращает его без знака минус.
|Yn|=|-Yn| >=0
|5| = 5
|-5| = 5
1)
var a,c:real; b:integer;
begin
for b:=2 to 7 do
begin
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
2)
var a,c:real; b:integer;
begin
b:=1;
while b<7 do
begin
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
3)
var a,c:real; b:integer;
begin
b:=1;
repeat
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
until b=7;
end.
Результат:
b = 2, a = 0.002
b = 3, a = 0.257
b = 4, a = 0.351
b = 5, a = 0.018
b = 6, a = 0.201
b = 7, a = 0.381