1) Var a:integer;
Begin
Writeln('Введите число');
Readln(a);
If (a mod 2 = 0) then writeln('Введённое число чётное.')
Else writeln('Введённое число чётное');<span>
End.
2) </span>var A,A1,B,B1,C,C1:integer;
Begin
a:=4;b:=1;c:=7;
Writeln('Дан треугольник со сторонами A=4 B=1 C=7');
Writeln('Введите стороны треугольника A,B,C');
Readln(A1,B1,C1);
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны')
Else writeln('треугольники не равны');<span>
End.
3)</span>var x,y:integer;
Begin
write('Введите первый промежуток: '); readln(x);
write('Введите второй промежуток: '); readln(y);
if x<y then write('Отдаляется')
else write('Приближается');
<span>end.</span>
Ответ:
//////////////////////////////////////////////////
Объяснение:
var s,i,n,a:integer;
BEGIN
read(a,n);
s:=1;
for i := 1 to n do
s:=s*a;
writeln('a в степени n = ',s);
s:=1;
for i := 1 to n do
s:=s*i;
writeln(s);
s:=0;
for i:= 1 to n do
begin
read(a);
s:= s + a;
end;
writeln('среднее арифметическое = ',s/n)
END.
Никак. пиши на английском. если хочешь, чтобы была возможность писать на русском, то качай pascal abc
n = int(input())
m = int(input())
ans = 0
for i in range(m, n-1, -1):
buf = 0
for y in str(i)[1:]:
y = int(y)
if y%2==0 and y != 0:
buf += 1
if (y%4==0 and y!=0) or buf >= 2:
ans = i
break
if ans != 0:
print(i)
break