Решение
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;
}
Думаю буде 2) 01001110