C++
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
if( c >= a && c <= b ) cout << "попадает.";
else cout << "не попадает.";
return 0;
}
Var b:array [1..100000] of integer;
a,k,i,n:integer;
begin
k:=0;{обнуляем счётчик}
readln(n);{вводим количество элементов в массиве}
readln(a);{задаём число а, с которым потом будем сравнивать}
for i:=1 to n do{запускаем цикл}
begin
if (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в задаче}
k:=k+1;{при выполнении условия,увеличиваем счётчик на один}
end;
writeln(k);{выводим количество элементов, удовлетворивших условию задачи}
end.
<span>существительные женского рода</span>
Var a,b,c:integer;
begin
read(a,b,c);
if b>a then a:=b;
if c>a then writeln(c) else writeln(a);
end.
Program s;
var
b:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
b[i]:=i*i-4;
writeln(b[i]);
end;
end.