Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
Сущ.-кошка
несущ.-дерево,машина, яблоко
Запишем уравнение в системе счисления по основанию n:
34(n)+33(n)=100(n)
Представим каждое число в развернутом виде:
3*n+4+3*n+3=1*n²+0*n+0;
Решаем в десятичной системе счисления
3n+4+3n+3=n²; n²-6n-7=0
D=36+28=64; n1=(6-8)/2=-1 (не подходит, основание - натуральное число);
n2=(6+8)/2=7;
<em>Ответ:</em> основание системы счисления равно 7.
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
<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>