#include <iostream>
<span>#include <cstdlib>
</span><span>#include <string>
</span><span>#include "stdafx.h"
</span>int main()
{
long int i;
long int ans = 0;
string s1, s2;
std::getline(std::cin, s1)<span>;
</span>std::getline(std::cin, s2);
for (int i = 1; i <= s1.length() - 1; i++)
{
if (s1.substr(i, 2)).find(s2)) ans++
}
std::cout << ans << std::endl;
return 0;
}
Uses crt;
Var a:integer;
Begin
clrscr;
writeln('Архитектор Исаакиевского собора: ');
writeln('1. Доменико Трезини');
writeln('2. Огюст Монферран');
writeln('3. Карл Росси');
writeln('Введите номер правильного ответа и нажмите <Enter>');
readln(a);
if a=2 then writeln('Правильно.
<span>Архитектор Исаакиевского собора - Огюст Монферран</span>')
else writeln('Не правельно');
readln;
end.
Информационное общество<span> — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации</span><span>, особенно высшей её формы — знаний</span><span>. Для этой стадии развития общества и экономики характерно:</span>
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-10,10).Foreach(i->Println(i,Abs(i)))
end.
<u>Результат</u>
-10 10
-9 9
-8 8
-7 7
-6 6
-5 5
-4 4
-3 3
-2 2
-1 1
0 0
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
<span>class EachSum{
public static void main(String args[]){
long sum = 0;
for(long n = new java.util.Scanner(System.in).nextLong(); n>0; n--)
for(long sumNum = n; sumNum>0; sumNum--)sum+=sumNum;
System.out.print(sum);
}
}</span>