Var
i: integer;
begin
for i:=10 to 99 do
if (i mod 17 = 0) and ((i mod 10 = 7) or (i mod 10 = 9)) then
writeln(i);
<span>end.</span>
Если словесно.
Берём пустые сосуды.
Наполняем 5-литровый и переливаем в 7литровый.
Результат: 5литровый - пуст, в 7литровом - 5 литров.
Наполняем 5литровый и переливаем в 7литровый столько, чтобы 7литровый наполнился.
Результат: 7литровый полон ( 5было + 2литра из 5литрового). В 5литровом 3 литра(5 было - 2 пепелили в 7литровый).
7литровый опустошаем и в него переливаем содержимое 5литрового.
Результат: 5литровый пуст (перелили в 7литровый), в 7литровом 3 литра.
Наполняем 5 литровый и переливаем в 7литровый столько, чтобы 7литровый заполнился.
Результат : 7литровый полон ( 3литра было + 4литра из 5 литрового. В 5литровом остался литр (5 литров - 4литра перелили в 7литровый).
Требуемый литр в 5литровом.
.
Есть еще один способ:
.
берём также пустые сосуды. Наполняем 7литровый. переливаем в 5литровый столько, чтобы 5литровый наполнился.
результат: в 7литровом - 2 литра (5 перелили в 5литровый), 5 литровый полон.
опустошаем 5 литровый и заливаем в него содержимое 7литрового.
результат: 7 литровый - пуст, в 5литровом - 2литра.
наполняем 7литровый и переливаем в 5 литровый столько, чтобы наполнить 5литровый.
результат: 5литровый полон (2литра +3литра из 7литрового), в 7литровом - 4литра (7литров - 3литра перелили в 5литровый).
5литровый опустошаем и в него заливаем содержимое 7литрового.
результат: 7литровый пуст, в 5литровом - 4литра.
наполняем 7литровый и переливаем в 5литровый столько, чтобы наполнить литровый.
результат: 5литровый полон(4литра +1литр из 7литрового), в 7литровом-6литров.
опустошаем 5 литровый и заливаем в него из 7литрового столько, чтобы 5литровый заполнился.
результат: 5литровый полон, в 7литровом - 1литр (6литров - 5литров перелили в 5литровый). искомый литр в 7литровом сосуде
#include <iostream>
using namespace std;
int main()
{
double x1, x2, y1, y2;
cin >> x1 >> y1;
cin >> x2 >> y2;
cout << (x1*x2 > 0 && y1*y2 > 0 ? "Yes" : "No");
}
Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.
