var
n,i,j,max,k: Integer;
lname, name: array [1..100000] of String;
y,g,a:array [1..100000] of longint;
begin
Read(n);
for i:=1 to n do
begin
read(lname[i]);
read (name[i]);
read(y[i],g[i]);
if (max<g[i]) or (i=1) then
max:=g[i];
end;
for i:=1 to n do
if g[i]=max then
begin
writeln(lname[i], ' ', name[i]);
j:=j+1;
a[j]:=i;
end;
for i:=1 to j do
write(g[a[i]], ' ');
end.
Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
#include<iostream>
using namespace std;
int main(){
int a[1000],i,n;
cin>>n;
for(i=1;i<=n;i++){
cin>>a[i];
if(a[i]%10==0) a[i]=0;
}
for(i=1;i<=n;i++){
cout<<a[i]<<" ";
}
return 0;
}
// PascalABC.NET 3.0, сборка 1111
begin
var n:=ReadInteger('Длина последовательности= ');
var a:=ReadArrReal('Вводите члены последовательности'+#13#10,n);
var k:=a.TakeWhile(x->x<>0).Count;
if k=n then Writeln('Ноль в последовательности не найден')
else Writeln('Количество членов, включая первый нулевой: ',k+1)
end.
<u><em>Тестовое решение:</em></u>
Длина последовательности= 10
Вводите члены последовательности
-5.2 7 2.7 -3.18 6.11 0 -1.02 3.14 -3.8 -4
Количество членов, включая первый нулевой: 6
Переберём все числа в диапазоне [10; 100). Сохраним наше текущее число в отдельную переменную. Пока копия числа больше нуля, будем умножать переменную произведения этого числа на последнюю цифру числа (% 10). Потом удалять последнюю цифру у копии числа (// 10).
<h3>Код</h3>
for i in range(10, 100):
i1 = i
pr = 1
while i1 > 0:
pr = pr * (i1 % 10)
i1 = i1 // 10
if i == pr*2:
print(i)