Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program first;
var z,d,k: integer;
begin
writeln('input z,d,k');
readln(z,d,k);
if (d> =z) then
d: =d-z
k: =k+1
writeln(d,' ',k);
readln;
end.
program ssd;
uses crt,graph;
var d,m: integer;
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
* 60 / 16 =
(12-3): (4+5)=1
1х2х3-4+5-6=1
(12: 3+4+5): (6+7)=1
(1+2-3+4+5+6-7): 8=1
Популярные вопросы