Var
a, b, n: integer;
begin
read(n);
if n<=7 then exit;
for a := 1 to n do
for b := 1 to n do
if 3 * a + 5 * b = n then
writeln('3 * ', a, ' + 5 * ', b, ' = ', n);
end.
#include <iostream>
#include <cmath>
using namespace std;
bool is_in_square(double x, double y)
{
return ((fabs(x)<=1)&&(fabs(y)<=1));
}
int main()
{
double x, y;
cin >> x >> y;
if (is_in_square(x,y)) cout << "YES";
else cout << "No";
return 0;
}
Пример:
0.5 -0.6
YES
1)
const n = 5;
var
i, a, count: integer;
begin
for i := 1 to n do begin
readln(a);
if(a mod 2 = 0) then inc(count);
end;
writeln('Кол-во четных чисел: ', count);
end.
2)
var
i, n, count: integer;
begin
readln(n);
for i := 1 to n do begin
write(exp(ln(2)*i), ' ');
if(exp(ln(2)*i) <= 200) then inc(count);
end;
writeln('Кол-во эл. не превышающих 200: ', count);
end.
Распечатать таблицу
значений функции F для x,
изменяющегося в интервале от x0
до xk с шагом h.
Значения x0, xk,
h вводятся пользователем.
var x,f,h,x0,xk,a:real;
const b=3;
BEGIN
WRITELN('AAAAEOA X0,x, Xk,h');
READLN(X0,x, Xk,a);
x:=x0;
while x<3 do
begin
F:=a*x+cos(x)+sqrt(ln(abs(x-3)));
end;
write(f:4:3);
write(' ');
while x=3 do
begin
f:=(x*x-b*b)+cos (pi)*x;
end;
write(f:4:3);
write(' ');
while x<3 do
begin
F:=(x-b)*sin(2*pi)*x;
end;
write(f:4:3);
<span>end.</span>