<span>program noname;</span>
<span>uses crt;</span>
<span>var</span>
<span>V,m,P:integer;</span>
<span>begin</span>
<span>clrscr;</span>
<span>P:=1400;</span>
<span>V:=25*2*39;</span>
<span>m:=V*P;</span>
<span>writeln(m);</span>
<span>end.</span>
Совершенно бесплатное порево
Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.
1.((0+1+1+1)*2*2*2+(1))*2=50
2.за 1 т.к. на одну чашу ложим одну монету на другую ложим 2 что перевесит то и настоящая
3.на том же месте т.к. он возвращается на место каждые 4 раза выполнив цикл а 16 и 4 сокращаются
4.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
using std::fixed;
#include <cstring>
using std::strcpy;
#include <iomanip>
using std::setprecision;
int main()
{
char s[100], temp[100];
int counter = 0, counter1 = 0;
cout << "Enter the string: ";
cin.getline(s, 100);
strcpy(temp, s);
//Определяем общее количество слов
//и количество слов с буквай d
char *ptr = strtok(temp, " ");
while(ptr)
{
for(int i = 0; *(ptr + i) != NULL; i++)
{
if(*(ptr + i) == 'd')
{
counter1++;
break;
}
}
counter++;
ptr = strtok(NULL, " ");
}
cout << setprecision(2) << fixed << (counter1 * 100 / double(counter)) << '%' << endl;
return 0;
}
