Var n,I,c:integer;
begin
c:=0;
read(n);
for i:=1 to n do
if (i mod 2 != 0) and (i mod 3 != 0) and (i mod 5 != 0) then c:=c+1;
write(c);
end.
проверь в компиляторе, я Паскаль плохо помню, не уверен
Слово бит красивым шрифтом а вокруг значки по теме
#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
int res = a * 45;
for (int i = 1; i < a; i++)
{
if (i % 2 == 0)
res += 15;
else
res += 5;
}
cout << 9 + res / 60 << " " << res % 60 << endl;
return 0;
}
4 зад
1 кнопка это выключить
Program z1;
var a:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do
begin
readln a[i];
if a[i] mod 2 =0 then k:=k+1;
end;
wreteln('четных',k);
end.