8л 5л 3л
Наполнили 5л. 3 5 0Перелили это в 3л, осталось 2 л. 3 2 3 3 л вернули в 8 л. 6 2 02л перелили в 3л. 6 0 2Наполнили 5л из 8л. 1 5 2 Отлили из 5л в 5л 1 4 3перелили 3л в 8л 4 4Число переливаний 7.
Sub aaa()
s = InputBox("Введите текст")
s = Replace(s, "к", "", , , vbTextCompare)
MsgBox s
End Sub
<u>Если нужна отдельная процедура для замены:</u>
Sub ReplKk(s As String)
s = Replace(s, "к", "", , , vbTextCompare)
End Sub
Sub Test()
Dim s As String
s = InputBox("Введите текст")
ReplKk s
MsgBox s
End Sub
#include <iostream>
using namespace std;
int main()
{
int n, s1 = 0, s2 = 0, n1 = 0, n2 = 0;
cin >> n;
int a[n];
srand(time(0)); // инициализируем датчик
for(int i=0; i<n; i++)
{
a[i] = rand() % 101;
cout << a[i] << " ";
if(a[i] < 50)
{
n1++;
s1 += a[i];
}
else
{
n2++;
s2 += a[i];
}
}
double m1 = double(s1) / n1;
double m2 = double(s2) / n2;
cout << endl << m1 << " " << m2;
return 0;
}
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.
Как начать работу в интернете ?