Var
n, max, i, d: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(d);
if (d mod 10 = 2) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.
1) на pascal ABC
var i:integer;
n:real;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if a[i]='a' then n+=1;
n:=(n/length(a)*100);
writeln(n:2:1);
<span>end.
2) на pascal ABC
var i,n:integer;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]='p') and (a[i+1]='o') then n+=1;
writeln(n);
<span>end.</span></span>
Мова - Python
a = int(input("a="))
b = int(input("b="))
c = int(input("c="))
if (a + b) > c and (b + c) > a and (a + c) > b:
if a == c and a == b and b == c:
print("Трикутник рівносторонній")
elif a == c or a == b or b == c:
print("Трикутник рівнобедрений")
else:
print("Трикутник-довільний")
else:
print("Нерівність трикутника не виконується")
Ответ:
2 Кбайт = 2 048 Байт
<span>4 Мбайт = 33 554 432 Бит </span>
<span>3.5 Гигабайт = 3 670 016 Кбайт </span>
<span>146512 бит = 18 314 байт </span>
414777 бит = 50,63 Кбайт