1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН
Program Pr1;
uses crt;
var ch,min,sek,ch2,min2,sek2,a,b,c:integer;
Begin
clrscr;
a:=0;
b:=0;
readln(ch,min,sek,ch2,min2,sek2);
while a<=ch do begin
a:=a+1;
b:=b+3600;
c:=b;
end;
b:=b+min*60+sek;
while a<=ch2 do begin
a:=a+1;
c:=c+3600;
end;
c:=c+min2*60+sek2;
writeln(c-b);
end.
Cntrl зажимаешь и выбираешь фигуру Круг и тянешь и он будет идеально ровный
Библиотеки нужно добавить самому.
Программу проверила на компиляторе,можно с ней работать.
Там есть в условии небольшая опечатка, в условии одном дана С (большая), но сама она нигде не дана, поэтому я использовала с (маленькую).
Если вдруг нужно будет самому ввести а, b и c, добавь сюда функцию cin >> a >> b >> c. Если нет, заранее приравняй к этим переменным какие-то значения.
int main()
{
int M, a, c, b, S, f, i;
int k[6] = {0, 1, 2, 3, 4, 5};
M = (a*a - c*c)*(a-b);
for (i=0; i<7; i++)
{
if (M == k[i])
S = M/(a*c);
else S = (a-c)*M;
}
if (S == M)
f = (a*b*S)/с;
else f = S-M;
return 0;
}