Pascal:
program decrement;
var
i: integer;
begin
i := 50;
while i >= 1 do
begin
if i mod 2 = 1 then
writeln(i, ' ');
i := i - 1;
end;
end.
---
C++:
#include <iostream>
int main() {
int i = 50;
while (i >= 1) {
if (i % 2 == 1)
std::cout << i << ' ';
i--;
}
return 0;
}
Пусть Х - количество черных автомобилей
У - количество серых
Рч = x/(x+y+18)
= 128
x+y+18 = 128x (1)
P(не серый) = (х+18)/(x+y+18)
= 32
x+y+18 = 32x+576 (2)
из того что, левые части выражений (1) и (2) равны, следует что равны и правые части, получим
128х=32х+576
96х = 576
х=6
Ответ: 6 черных автомобилей
Написано на C++, если нужно переделай под Pascal
Я не знаю ми такого не проходили