101011
(Я люблю ограничение по символам)
uses GraphABC;
var n:integer;
begin
writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');
readln(n);
setwindowsize (640,480);
setpencolor (clBlue);
setpenwidth (4);
case n of
1: begin
setwindowtitle ('квадрат');
rectangle(200,100,400,300);
end;
2: begin
setwindowtitle ('треугольник');
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
3: begin
setwindowtitle ('круг');
circle(300,200,120);
end;
end;
end.
Можно ещё проверять четность, но этот способ будет проще:
#include <iostream>
#include <stdlib.h>
using namespace std;
int main()
{
int n;
cin >> n;
for(int i = 1; i <= n; i += 2)
{
cout << i << endl;
}
system("pause");
return 0;
}
Program z1;
var x:integer;
y:real;
begin
Writeln('Введите x');
readln(x);
y:=1/(x-15);
writeln(x:5:2);
readln;
end.