I=1, X=10, C=100, M=1000 и их половины V=5, L=50, D=500
<span>MCXLVII=1147</span>
Вот программа по формуле
var a:integer;
s:real;
begin
s:=1;
for a:=1 to 15 do begin
if (a mod 2 = 1) then s:=s+(2/a);
end;
writeln('сумма дробей с числителем = 2 а знаменателем от 1 до 15 = ',s);
end.
а вот программа по словесной задаче
var a,s:integer;
begin
s:=1;
for a:=10 to 99 do begin
if a mod 3 = 0 then s:=s*a;
end;
writeln('произведение двузначных чисел кратных 3 = ',s);
end.
#include <iostream>
#include <Windows.h>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
char s[128]; size_t i = 1; int c=0;
cin.getline(s, 128); s[strlen(s)] = ' ';
for(size_t i=1; i<strlen(s); i++)
if (s[i] == 'а' && s[i - 1]!=' ' && (s[i + 1] == ' ' || s[i + 1] == ',' || s[i + 1] == '.' || s[i + 1] == '!' || s[i + 1] == '?'))
c++;
cout << c << endl;
system("pause");
return 0;
}
Писал на Visual Studio 2017