var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.
N = int(input())
a = n - 1
g = n *a
h = g / 2
print(g)
ответ в языке python
===== PascalABC.NET =====
begin
Range(2, 100, 2).Println
end.
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.
Ответ не точный,сразу говорю. Но насколько я знаю,то печатается чернилами и покрывается поверх прозрачной "пленкой". Она ламинированая ,за счет этого у фото есть блеск. Надебсь,помогла ;)