Получив первую зарплату, Вы задумываетесь о самостоятельной покупке Apple iPhone 4 16Gb стоимостью 33450 руб. (на 1 января 2011 г Ваша первая зарплата составила 2800 руб. и по перспективным прогнозам должна повышаться каждые 2 месяца на 4%. Когда Вы сможете позволить себе эту покупку, если со своей зарплаты Вам необходимо оплачивать интернет (350 руб. в месяц), а цена модели Apple iPhone 4 16Gb снижается в среднем 1% в месяц.

KirillkoshelevНовичок

Відповідь:

Пояснення:

Var

a,b,i:real;

begin

i:=0;

a:=2800;

b:=33450;

while aa:=a*1.04-350;

b:=b*0.99;

i:=i+1;

end;

writeln(i);

end.

Pascal abc

Var

i:integer;

b,c,l:real;

begin

l:=0;

i:=1;

b:=2800;

c:=33450;

while bb:=b*1.04;

c:=c*0.99;

i:=i+1;

l:=b*1.04-350+l;

end;

writeln(i);

end

Объяснение:

// PascalABC.Net 3.2
begin
  var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
  var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
  var c:=a.Intersect(b).ToArray;
  Write('C='); c.Println;
  a:=a.Except(c).ToArray; Write('A новый='); a.Println;
  b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.

Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication5
{
    class Program
    {
        static void Main(string[] args)
        {
            // 1) Написать программу,которая вводит таблицу квадратов первых 10 чисел.
            for (int i = 1; i <= 10; i++)
            {
                Console.WriteLine(i + "^2=" + Math.Pow(i, 2));
            }

            Console.ReadKey();

            // 2) Найти все натуральные числа а,b,с, из интервала от 1 до 10 для которых выполняется равенство а^2+b^2=c^2

            for (int a = 1; a <= 10; a++)
            {
                for (int b = 1; b <= 10; b++)
                {
                    for (int c = 1; c <= 10; c++)
                    {
                        if (Math.Pow(a, 2) + Math.Pow(b, 2) == Math.Pow(c, 2))
                            Console.WriteLine("a=" + a + "; b=" + b + "; c="+c);
                    }
                }
            }

            Console.ReadKey();
        }
    }
}