Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.
Ответ:
Берешь готовый движок и впиливаешь его на свою корявую форму. Си Шарп + интернет Эксплорер = ванлав
Объяснение:
Ответ такой: 137 восьмеричной системе счисления
Using System;
public class Test
{
public static void Main()
{
Console.Write("Введите координату х исходной точки (1-8): ");
int x1=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату y исходной точки (1-8): ");
int y1=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату х нужной точки (1-8): ");
int x=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату y нужной точки (1-8): ");
int y=Convert.ToInt32(Console.ReadLine());
bool r=(Math.Abs(x-x1)*Math.Abs(y-y1)==2) &&
(x>0) && (x1>0) && (x<9) && (x1<9) &&
(y>0) && (y1>0) && (y<9) && (y1<9);
Console.WriteLine(r);
}
}
<u>Непосредственно условие:</u>
(Math.Abs(x-x1)*Math.Abs(y-y1)==2) &&
(x>0) && (x1>0) && (x<9) && (x1<9) &&
(y>0) && (y1>0) && (y<9) && (y1<9)
Var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.