История:даты
География: контененты
Биология:бактерии,
1)
s := 0;
for i := 1 to k do
begin
if i mod 2 <> 0 then
s:= s + i;
end;
2)
for i := 5 to 55 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
3)
s := 1;
for i := n to m do
begin
s:= s * i;
end;
4)
s := 0;
for i := 10 to 15 do
begin
s:= s + i;
end;
обрамления там везде одинаковые
Можно, долго не размышляя, решить задачу методом "тупого перебора".
program SpecialHappyTickets;
var
i, j, k, l, m, n, s: integer;
begin
s := 0;
for i := 0 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
for m := 0 to 9 do
for n := 0 to 9 do
if (i + j + k) = (l + m + n) then
if i + j + k = 13 then s := s + 1;
Writeln(s)
end.
<em><u>Результат выполнения программы:</u></em>
5625
0,28Е2-0,28142
0,02Е5-0,02145
0,28142+0,02145=0,30287
0,28142•0,02145=0,00604
Вроде бы так