ФОРМАЛЬНАЯ ЛОГИКА? О_О ЧУВАК, ТЫ ТОЖЕ ЕЕ УЧИШЬ?
A: Все компьютеры черные; Все дети любят Пушкина.
I: Некоторые климатические пояса холодные; Часть клеток в организме нервные.
E: Все числа не делятся на ноль.
O: Некоторые люди не знают латынь; Почти все компьютеры не розового цвета.
В таких задачах всегда самый быстрый способ найти ответ это делить объем вариантов пополам и спрашивать каждый раз есть ли в выбранной половине ответ.
В данной задаче цепочка будет такой:
1. Его номер квартиры больше 4? ---- если ответ да, то дальше цепочка такая же только номера надо будет брать из другого промежутка.
2. Его номер квартиры больше 2?
3. Его номер квартиры = 2?
//PascalABC.Net v3.1
var n:integer;
begin
readln(n);
if n mod 2 = 0 then n:=n*4 else n:=n+1;
writeln(n);
end.
Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);
while y<=350 do Go (0,1);
while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
<span>end.
Так сойдет? :)</span>
Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.