Const
nm = 50;{ предельное число товаров }
var
mn: array[1..nm] of string;
mk, ms: array[1..nm] of real;
i, k, n: integer;
min: real;
begin
Write('Введите число продуктов на складе (не более ', nm, '): ');
Readln(n);
min := 1e10;
for i := 1 to n do
begin
Write('Наименование продукта ', i, ': '); Readln(mn[i]);
Write('Количество и стоимость: '); Readln(mk[i], ms[i]);
if min > mk[i] then begin min := mk[i]; k := i end
end;
Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k],
' кг. стоимостью ', ms[k], ' руб. за 1 кг.')
end.
Формальная модель описывает движение тела ,используются формулы, уравнения, неравества, приближенные математические методы. Компьютерная модель выраженна на понятном языке программирования,она позволяет: визуализировать траекторию движения тела,а также реализовать интерактивный диалог человека с компьютером на этапе исследования модели.
Правильный ответ 7
div - целочисленное деление, 36 / 5 = 7 и 1 в остатке
VB.
Dim i As Integer
Dim summ As Integer
Dim simv As String
simv = "бвгджзклмнпрстфхцчшщ"
Dim n As String
n=InputBox ("Введите строку")
For i = 1 To Len(n)
If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")</span>
