var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
Решение во вложении. все забито через формулы, поэтому если поменять количество почты или вес почты, то результаты автоматически поменяются.
Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>
Язык C++.
#include <iostream>
#include <cmath>
const double pi = 3.1415;
using namespace std;
int main() {
double r;
cout << "Введите радиус: " << endl;
cin >> r;
cout << "Длина окружности = " << 2*pi*r << endl << "Площадь = " << pi*pow(r,2) << endl;
}
Формула для стерео:
где Hz - Герцы, b - биты, t – секунды.
Если у вас 1 МБайт = 1024 КБайт, то везде дели на 1024. Я делил на 1000.Дано:
Найдем объем в битах
бит
Переведем в МБайт-ы:
Байт
КБайт
МБайт