Procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=StrToInt(Edit1.Text);
if (n mod 5 = 0) and (n mod 7 = 0) then
Edit2.Text:='Это верно, число делится на 5 и на 7'
else
Edit2.Text:='Число не делится на 5 и на 7';
end;
end.
program p;
var a,b,c,k: integer;
begin
writeln("Введите a,b,c,k: "); readln(a,b,c,k);
if (a mod k)=0 then writeln("K является делителем A");
if (b mod k)=0 then writeln("K является делителем B");
if (c mod k)=0 then writeln("K является делителем C");
readln; end.
Var
A : array of real;
i, N, num : integer;
begin
write('Количество чисел: ');
readln(N);
SetLength(A, N);
for i := 0 to N - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
end;
num := 0;
for i := 0 to N - 1 do
if Sqr(A[i]) < 10 then
Inc(num);
writeln('Таких чисел: ', num);
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;
}