Var a,s:integer;
begin
a:=3000
while a<5000 do begin
a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.
1)2*297+235=829 2)2*235+468=938 3)938-829=109 <span>виграла Ганнуся, вона набрала на 109 очок більше</span>
Var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
131
241
324
550
624
803
900
910
Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) mod 11) = 0 then
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
<span>550
803</span>
# список чисел будет в переменной listlist = [10, 12, 1, 3, 5, 16, 16, 0, -2];
# находим самое большое число используя функцию max и помещаем его в переменную max_elementmax_element = max(list)
print ("max element: ", max_element)#чтобы узнать индекс используем функцию indexprint ("index: ", list.index(max_element));
Static void Main(string[] args)
{
int count = 0;
Console.Write("Введите размерность массива: ");
int n = Convert.ToInt32(Console.ReadLine());
int[] mas = new int[n];
Console.WriteLine("Заполните массив: ");
for (int i = 0; i < n; i++)
{
Console.Write("\t{0} элемент массива: ", i + 1);
mas[i] = Convert.ToInt32(Console.ReadLine());
}
for (int i = 0; i < n; i++)
if (mas[i] > 0 && mas[i] \% 2 == 0)
count++;
Console.WriteLine("Из {0} элементов массива {1} элементов являются положительными четными",n,count);
Console.WriteLine("{0}\% элементов являются положительными четными", (double)count/n*100);
Console.ReadLine();
}