Нужна - -25 за ответ- -прога=паскаль- напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. программа получает на вход количество чисел в последовательности, а затем сами числа.
Пример на c#: int a; int b; int c; int d; Console.WriteLine("Введите стоимость перчаток"); a = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите стоимость портфеля"); b = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите стоимость галстука"); c = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите сумму, которую вы даете продавцу"); d = Convert.ToInt32(Console.ReadLine()); int result; int sdacha; result = a + b + c; if (result <= d) { sdacha = d - result; Console.WriteLine("Ваша сдача - {0}", sdacha); } if (result > d) { Console.WriteLine("Вам нужно доплатить"); } Console.ReadKey();
Vivdarkbloom, к сожалению, нашел сумму всех чисел от 2 до N, а не число с максимальной суммой делителей. Надо было так, пишу на Visual Basic Sub Command1_Click() Rem Программа запускается по нажатию кнопки Command1 на форме Dim n As Integer, Summa As Integer, Max As Integer Dim Maxn As Integer, i As Integer, k As Integer n = Text1.Text ' Это текстовое поле на форме, куда вводится n Max = 1: Maxn = 1 For i = 2 To n Summa = 0 For k = 1 To i If i Mod k = 0 Then Summa = Summa + k ' Если k - делитель i, то прибавляем Next k If Summa > Max Then ' Если сумма больше максимальной Max = Summa ' Сохраняем сумму Maxn = i ' И сохраняем число i. End If Next i Text2.Text = Maxn ' Это второе текстовое поле, куда выводится результат End Sub
Program prog;
var
n,min,a,i:integer;
begin
readln(n);
readln(a);
min:=a;
for i:=2 to n do
begin
readln (a);
if a<min then min:=a;
end;
writeln(min);
end.