<span>Sub Main()
Dim a, b, c As Integer
a = Int32.Parse(Console.ReadLine())
b = Int32.Parse(Console.ReadLine())
c = Int32.Parse(Console.ReadLine())
Console.WriteLine(IIf(a * b * c < 0, "-", "+"))
Console.Read()
<span>End Sub
</span>
Можно было и короче, но для школы так лучше) </span>
1) купить картошку
2) помыть картошку
3) почистить картошку
4) порезать картошку
5) поставить сковороду на огонь и налить в нее масла
6) положить картошку в сковороду
7) ждать готовности
1) 136:4+х=257
39+х=257
х=218
2) а+884:4=570
а+221=570
а=349
3) у-125:5=800
у-25=800
у=825
4) 147:7×в=210
21в=210
в=10
Var a:integer;
begin
write('введите число ');
read(a);
if ((a div 10 + a mod 10) mod 3=0) writeln('YES') else write ('NO');
end.
Var
a,b,c:integer;
begin
Write('Введите три целых числа: '); Readln(a,b,c);
if a>b then
if b>c then Writeln(a*b) else Writeln(a*c)
else
if a>c then Writeln(a*b) else Writeln(b*c)
end.
<em><u>Тестовое решение:</u></em>
Введите три целых числа: 5 -2 7
35