самый большой авал это будет танцоры. поменьше актёры,а самый маленький авал певцы. 2 элемента
Задание 1.
var a,i,sum:integer;
s:string;
begin
writeln('Введите 4-ёх значное число');
readln(a);
s := IntToStr(a);
for i := 1 to s.Length do
if i mod 2 = 1 then
sum := sum + StrToInt(s[i]);
writeln('Сумма: ',sum);
end.
Задание 2.
var n,y:integer;
begin
writeln('Введите число n');
readln(n);
if n = 0 then
y := 0
else if n mod 2 = 0 then
y := -1
else if n mod 2 = 1 then
y := 1;
writeln('y = ',y);
end.
Var
a, n, i: integer;
r: longint;
begin
r := 1;
readln(a, n);
for i := 1 to n do
r := r * a;
write(r);
end.
Петя не может быть правым в обоих случаях так как получиться что и петя и женя написали на 5, а тк не может быть по условию. дальше подбираем под петю два оставшихся случая, при том что петя сказал 2 раза правду, но этого не может быть т.к. тогда женя говорит либо 2 неправды либо 50на50, говоря две неправды он противоречит пете о том что он не писал на 5 а говоря правду неправду противоречит и пете и саше. значит петя определенно сказал правду неправду, тогда подставив жене неправду а саше правду получаем что на 5 написал петя.