Даны координаты верхнего левого угла (х1,у1) и правого нижнего угла (х2,у2) прямоугольника. Определить пересекают ли его стороны оси координат и вывести соответствующее сообщение на экран.
Пять верст до небес и все лесом. Эка верста выросла (как Коломенская верста) . За семь верст киселя хлебать. Ты от дела на недельку, а оно от тебя на саженьку. Видеть на сажень сквозь землю. Загадка разгадка да семь верст правды. Каждый купец на свой аршин мерит. Прямой, будто аршин проглотил. Семи пядей во лбу. Сам с ноготок, а борода с локоток. От горшка два вершка, а уже указчик. Полено к полену - сажень. Москва верстой далека, а сердцу рядом. Любовь верстами не меряется. Сто верст молодцу не крюк. От слова до дела - целая верста. Верстой ближе - пятаком дешевле. Жили с локоть, а осталось с ноготь. В чужих руках ноготок с локоток. Дай с ноготок, запросит с локоток. Семь аршин говядины да три фунта лент (о бессмыслице)
1) var n:integer; begin readln(n); if(n<0)then write(0) else write(n+4); end.
2) var a, b: integer; begin readln(a, b); if(a = b) then write(1) else write(0); end.
3) var a, b, c, s: integer; begin s := 0; readln(a, b, c); if(a >= 0) then s := s + 1; if(b >= 0) then s := s + 1; if(c >= 0) then s := s + 1; write(s); end.
4) var a, b, c, s: integer; begin s := 0; readln(a, b, c); if(a > 0) then s := s + a; if(b > 0) then s := s + b; if(c > 0) then s := s + c; write(s); end. 5) var a, b, c: integer; begin readln(a, b, c); if (a < b) then swap(a, b); if (a < c) then swap(a, c); if (b < c) then swap(b, c); write(a, ' ', b, ' ', c); end.
6) var n, k, s, i: integer; begin s := 0; readln(n, k); for i := 1 to n.ToString.Length do if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]); write(s); end.
7) var n, s, i: integer; begin s := 0; readln(n); for i := 1 to n do s := s + i; write(s); end.
9) var n, i: integer; begin readln(n); for i := n downto 1 do write(i); end.
12 var n, i: integer; s: real; begin s := 0; readln(n); for i := n downto 1 do s:=s+(0.1*i); write(s); end.
13) var n, i: integer; begin readln(n); for i := 1 to n do write(sqr(i), ' '); end.
14) var n, i, c: integer; begin i := 1; c := 0; readln(n); while (c <> n) do begin if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end; i := i + 1; end; end.
15) var n, i, a: integer; c: real; begin i := 1; c := 0; readln(n); for i := 1 to n do begin read(a); c := c + a; end; write(c / n) end.
16) var n, i, a: integer; begin i := 1; while true do begin read(a); if(a = 0) then break; n := n + 1; end; write(n) end.
Эка верста выросла (как Коломенская верста) .
За семь верст киселя хлебать.
Ты от дела на недельку, а оно от тебя на саженьку.
Видеть на сажень сквозь землю.
Загадка разгадка да семь верст правды.
Каждый купец на свой аршин мерит.
Прямой, будто аршин проглотил.
Семи пядей во лбу.
Сам с ноготок, а борода с локоток.
От горшка два вершка, а уже указчик.
Полено к полену - сажень.
Москва верстой далека, а сердцу рядом.
Любовь верстами не меряется.
Сто верст молодцу не крюк.
От слова до дела - целая верста.
Верстой ближе - пятаком дешевле.
Жили с локоть, а осталось с ноготь.
В чужих руках ноготок с локоток.
Дай с ноготок, запросит с локоток.
Семь аршин говядины да три фунта лент (о бессмыслице)