________________ _________ _ ..
() () (, )
________________ _________ ..
() () (, )
2016
. 3
1. . 4
2. .. 5
3. .. 7
4. . 8
5. .. 9
.. 11
:<< >>
:
1. ;
2. Pascal
3. .
<<..>> ,
..
Ÿ .
. . , , , . . , , , , .
1.
.
.
program zero;
uses crt;
label 1;
var q,w,e,r,t,u:real;
y:string;
begin
textcolor(lightred);
writeln(' ?');
readln(y);
textcolor(lightgreen);
writeln(' ',y,'. . ? -1,-2');
readln(u);
if u=2 then goto 1
else
begin
textcolor(lightmagenta);
writeln(' ');
readln(q);
textcolor(lightmagenta);
writeln(' ');
readln(w);
e:=q-110;
if e<w then
begin
r:=w-e;
textcolor(red);
writeln(' ',r,' , .');
end;
if e>w then
begin
t:=e-w;
textcolor(yellow);
writeln(' ',t,' , . ');
end;
if e=w then
begin
textcolor(green);
writeln(' .');
end;
end;
textcolor(magenta);
1:writeln(' !')
end.
3.
:
WRITELN . READLN - .
|
|
:= - .
IF <> THEN < 1> ELSE < 2> - .
USES CRT a
GOTO-
, :
1. ;
2. - ;
3. ;
4. .
, . .
, 1, , w w < r-110, :
, 1, , w w > r-110, :
, 1, , w w = r-110, :
1. http://slavclinic.com/hochu-pohudet-chto-dalshe/
2. http://www.zdorovieinfo.ru/sbros-lishnee/stati/
3. http://kaloriyka.ru/blogs/statya