Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program ssd;
uses crt,graph;
var d,m: integer;
begin
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
end.
пщояк 17 27 16 33 17
нщёп 15 27 7 17
в блок схемах не сильна
var n: integer;
s,s0: real;
n: =1;
s: =10;
repeat
n: =n+1;
s: = s + (100+p)*s0/100;
s0: =(100+p)*s0/100;
until s> 200;
writeln(s);
не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.
Популярные вопросы