за спам и не верный ответ бан))
​

Решение

var count, max, i: integer;

begin

 max := 0;

 count := 0;

 for i := 1721 to 4322 do begin

     if (i mod 3 = 0) and (i mod 11 = 0) then

         if i mod 5 <> 0 then

             if i mod 9 <> 0 then

                 if i mod 13 <> 0 then

                     if i mod 22 <> 0 then begin

                         count := count + 1;

                         if i > max then  

                             max := i;

                     end;

 end;

 writeln(count, max);

end.

ответ: 194191

Написал на С++

Объяснение:

#include <iostream>

#include <windows.h>//для русской раскладки

using namespace std;

int main()

{

SetConsoleCP(1251);//подключаем русскую раскладку

SetConsoleOutputCP(1251);

float cost1, cost2, cost3, cost4; //цены товаров

float sum = 0;//сумма всей покупки

cout << "Введите стоимость первого товара: ";

cin >> cost1;

cout << "Введите стоимость второго товара: ";

cin >> cost2;

cout << "Введите стоимость третьего товара: ";

cin >> cost3;

cout << "Введите стоимость четвертого товара: ";

cin >> cost4;

sum = cost1 + cost2 + cost3 + cost4;

if (sum > 1300)

 sum = sum - sum * 0.05;

else if (sum > 1300)

 sum = sum - sum * 0.03;

cout << "Общая стоимость покупки с учетом скидок равна: " << sum << endl;

system("pause");

return 0;

}