М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
yadilightoy1140
yadilightoy1140
01.12.2022 11:40 •  Информатика

Нужна - -25 за ответ- -прога=паскаль- напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. программа получает на вход количество чисел в последовательности, а затем сами числа.

👇
Ответ:
albinanizaeva
albinanizaeva
01.12.2022

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.

4,4(72 оценок)
Открыть все ответы
Ответ:
ksubol777
ksubol777
01.12.2022
Пример на 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();
4,8(73 оценок)
Ответ:
Осоаовлво
Осоаовлво
01.12.2022
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
4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ