Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
#include <iostream>
using namespace std;
int main()
{
int a, b, c;
cin >> a >> b >> c;
if (a < 0 && b < 0 && c < 0) {
cout << "Error!" << endl;
} else {
if ((a - b) % 3 != 0 && (a - c) % 3 != 0 && (b - c) % 3 == 0) {
cout << "1" << endl;
}
if ((a - b) % 3 != 0 && (a - c) % 3 == 0 && (b - c) % 3 != 0) {
cout << "2" << endl;
}
if ((a - b) % 3 == 0 && (a - c) % 3 != 0 && (b - c) % 3 != 0) {
cout << "3" << endl;
}
}
return 0;
}