Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
Растр выглядит в виде точек - Пикселей.
<span>Векторное изображение задается формулами. </span>
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
Небольшое наблюдение: если Денис может использовать ровно M лопастей, то он может использовать их так, чтобы четырёхлопастных спиннеров было не больше двух. (Если их три или больше, то каждые три четырёхлопастных спиннера можно поменять на 4 трёхлопастных).
Код (C++)
#include <iostream>
int main() {
long long M;
std::cin >> M;
for (int f = 0; f < 3 && f * 4 <= M; f++) {
if ((M - f * 4) % 3 == 0) {
std::cout << (M - f * 4) / 3 << " " << f;
return 0;
}
}
std::cout << "0 0";
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(2, 50, 2).Println; // четные
Range(1, 49, 2).Println // нечетные
end.