Var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real;
begin;
readln(x1a);
readln(y1a);
readln(x2a);
readln(y2a);
readln(x1b);
readln(y1b);
readln(x2b);
readln(y2b);
l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a));
l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b));
if I1>l2 then writeln('Первый');
if l1<l2 then writeln('Второй');
if l1=l2 then writeln('Равны');
end.
(1г /\ Пс) --> 3c = не(1г /\ Пс) \/ 3c = не(1г) \/ не(Пс) \/ 3г = 1с \/ Пг \/ 3г
1с: <span>Марс
Пг: </span><span>Облако
3г: </span><span>Энот
Ответ: </span><span>Экран.
На проверку?!?</span>
Программа на С:
int main(){
float temp = receiveTemperature();
if(temp > 60){
printf("Пожароопасная ситуация");
}
}
Блок-схема:
<u>(начало)
</u> |
<u>/temp/
</u> |
<u>|temp = receiveTemperature()|
</u> |
<u><temp > 60></u>
| да
+--------------<u>/"Пожароопасная ситуация"/</u>--+
| нет |
+-------------<u>(конец)</u>---------------------------------+
Program summa;
var i,n:integer;
begin
for i:=10 to 15 do
n:=n+i;
writeln('Summa 4isel ot 10 do 15= ',n);
end.<span>
</span>