Налить первый раз в трехлитровый перелить в пяти, налить второй раз в трехлитровый, перелить в пятилитровый.
что останется, то и есть один литр :-) потому что 3+3-5=1
Program n1;
var a,i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 2=0 then sum:=sum+a;
end;
writeln(sum);
end.
Program asdf; var a,b:integer;begin writeln('Введите рост 1 девочки');readln(a);writeln('Введите рост 2 девочки');readln(b);if a<b then writeln('Вторая девочка выше')else writeln('Первая девочка выше');end.
Ответ без решения,пока что.
<span>uses crt;
var a:array[0..50,0..50]of integer;
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i,0]:=i;
a[0,i]:=i;
end;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=i*j;
end;
for i:=0 to n do
begin
for j:=0 to n do
begin
if (i=0) or (j=0) then
textcolor(lightgreen)
else
textcolor(white);
write(a[i,j]:4);
end;
writeln;
end;
end<span>.</span></span>
А что за урок матем или что ъ