Program test;
var i:integer;
beginfor i:=-5 to 5 do write(i,' ');
writeln;
for i:=5 downto -5 do write(i,' ');
<span>end.</span>
Аня - пироги с вареньем
ваня - пироги с капустой
лена - блины с вареньем
света - оладьи со смаетаной
Нужно налить из 8-ми литрового кувшина целый 3-х литровый, из него вылить всё в 5-ти литровый, опять налить из 8-ми литрового кувшина целый 3-х литровый, и долить до конца 5-ти литровый. Получаем, что в 8-ми литровом остаётся 2-а литра, в 5-ти литровом, все 5-ть, а в 3-х литровом - 1 литр.
<em>Удачи</em><em>)</em><em>)</em><em>)</em><em />
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.