<span>n = int(input())
max5 = <span>0
</span>for i in (1, n+1):
a = int(input())
if a % 5 == 0 and a > max5:
max5 = a
print(max5)
</span>
Задание несколько расплывчатое, но скорее всего, подойдет такое решение:
var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.
1) <span>d. $А$1
2) </span><span>d. G12
====================</span>
Ответ:
program s_2;
var a, b: real
;
begin
writeln ('Пожалуйста введите 1 и 2 число>>')
;
readln ( a,b )
;
if a>b ;
then a:= a-10
;
else b:= b*2
;
writeln ('Ответ')
;
writeln ('Первое число = ', a)
;
writeln ('Второе число = ', b);
Объяснение:
Function _Xor (x, y:boolean): boolean;
begin
_Xor:=not(x=y);
end;
var x,y:integer;
begin
write('x y: ');
readln(x,y);
if _Xor(x=0,y=0)
then writeln(1) else writeln(0);
end.
Пример:
x y: 0 1
1