Налить в 3л и из 3л перелить в 5л
Опять налить в 3л и перелить в 5л. (в 3л останется 1л)
Вылить из 8л
Перелить из 3л в 8л
Перелить из 5л в 3л
Перелить из 3л в 8л
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Ответ:
#include <iostream>
using namespace std;
int main()
{
int a[4];
int i, p;
setlocale(LC_ALL, "russian");
cout << "Введите четыре числа: ";
for (i = 0; i < 4; i++) {
cin >> a[i];
}
p = 1;
for (i = 0; i < 4; i++) {
p *= a[i];
}
if (p > 0)
cout << "\nПроизведение положительно";
else if (p < 0)
cout << "\nПроизведение отрицательно";
else
cout << "\nПроизведение равно 0";
}
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
Write('Введите символ: ');
ReadLn(C);
For i:= 1 to S.Length do
if S[i] = C then
Write(i,' ')
End.
Пример:
Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *
Введите символ: а
2 4 11 57 76 113