Uses GraphABC;
var s:string;
begin
writeln('Введите название фигуры (круг или треугольник):');
readln(s);
setwindowsize (640,480);
setwindowtitle (s);
setpencolor (clBlue);
setpenwidth (4);
if s='круг' then
circle(300,200,120)
else begin
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
end.
Через 3года сестре будет 3года атак как в 3раза больше то 3*3=9лет.
Парень, я программирую на C++, но вот решение 1.
#include <iostream>
using namespace std;
int main(){ int x,n; cout << "Vvedite x,n"<<endl; cin>>x>>n; for (int i=1;i<=n;i++) { cout<<x<<endl; x=x+5; } return 0;}
Код на паскале
program ex;
var
x, y, z: real;
begin
writeln('Введите x и y: ');
readln(x, y);
if ((x*x + y*y) < 1) then
z := x*x + y*y;
if ((x*x + y*y = 1)) then
z := x + y;
if ((x*x + y*y) > 1) then
z := 0.5;
writeln('z = ', z);
end.
Var x,y:real;
begin
read(x);
if x < -1 then y = -x;
if (x >= -1)and(x <=1) then y = 1;
if x > 1 then y = x;
end.