1)program fagasg; var x1,y1,r: real; begin Writeln('Введите х1'); readln(x1); Writeln('Введите у1'); readln(y1); r:=sqrt(x1*x1+y1*y1); Writeln('Расстояние от х1 до у1=',r); end. 2)Program fsgasghfd; var c,s: real; a,b: integer; begin Writeln('Введите первое целое число'); readln(a); Writeln('Введите второе целое число'); readln(b); Writeln('Введите дробное число'); readln(c); If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then s:=a+b+c else writeln('Знаки разные'); If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s); end. 3)Program wrqrwqr; var A: Array[1..100] of integer; B: Array[1..100] of integer; C: Array[1..100] of integer; s,i,h,g: integer; begin h:=0; g:=0; Writeln('введите размерность массива'); readln(s); Writeln('Вводится первый массив'); For i:=1 to s do begin Writeln('Введите элемент массива №',i); readln(A[i]); end; Writeln('Вводится второй массив'); For i:=1 to s do begin Writeln('Введите элемент массива №',i); readln(B[i]); end; For i:=1 to s do begin If A[i]>B[i] then C[i]:=A[i] else C[i]:=B[i]; If C[i] mod 2=1 then h:=h+1; If C[i] mod 2=0 then g:=g+1; end; Writeln('Количество нечётных элементов в массиве:',h); Writeln('Количество чётных элементов в массиве:',g); end.
Объяснение:
1)выливаем из 8-литрового в 3-хлитровую
2).Эту 3-хлитровую выливаем в 5-тилитровый сосуд
3))выливаем из 8-литрового в 3-хлитровую
4).Эту 3-хлитровую выливаем в 5-тилитровый сосуд, до того, пока он становится полным.
5).Этот 5-тилиртовый сосуд (молоко) выливаем полностью в 8-илитровую
6).1 литр молока, который находится в 3-хлитровом сосуде, выливаем в 5-илитровый.
7)выливаем из 8-литрового в 3-хлитровую
8)это молоко из 3-хлитрого выливаем в 5-тилитровый. Там стал 4 литра молока!
В 8-милитровом сосуде также 4 литра молока.