Var i,s,p,max:integer; a:array[1..10] of integer; // описание переменных begin s:=0; p:=1; max:=1; for i:=1 to 10 do // Цикл в котором находится: begin a[i]:=random(100); // генерация рандом чисел write(a[i]:5); // вывод всего массива s:=s+a[i]; // нахождение суммы p:=p*a[i]; // нахождение произведения end; for i:=1 to 10 do // цикл для нахождения максимального в массиве if a[i]>max then max:=a[i]; writeln; writeln('Summa: ',s); // Все что ниже вывод резельтатов. writeln('Proizvedenie: ',p); writeln('Maximalnoe: ',max); end.
A+B=3k k=1,2,3... кратность к 3
A=3B условие 2-ое
получаем 3B+B=3k
4B=3k отсюда вывод вторая цифра кратная к 3,
то есть 3,6,9
При B=6 и B=9 => цифра A получится двухзначним
значит B=3, A=9
ответ 93
int x=0;
for(int i=1;i<10;i++)
for(int j=1;j<10;j++)
if(i%3==0 && i==3*j)
{x=i*10+j;
cout<<x<<endl;
}
можно оптимизировать
for(int i=1;i<4;i=i++)
if(i%3==0)
{x=i*31;
cout<<x<<endl;
}
1й перебирает 99 вариантов
2й 3 варианта
Или просто можно сделать
cout<<"93"<<endl;
)))
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.