По-моему бит а там не знаю
<u><em>Borland Pascal 7</em></u>
uses Crt;
var
a,b,c:real;
begin
ClrScr;
a:=-1/7; b:=1/25; c:=0.2;
Writeln((a*b*c-sqrt(b))/(2.5-abs(a)));
ReadKey
end.
Результат выполнения программы:
-8.5333333333E-02
Я не знаю как это решать, поэтому просто составил программу, которая вычислит ответ))
var i,i2,sum,ans:integer; s:string; begin for i:=1 to 1024 do begin sum:=0 s:=inttostr(i); for i2:=1 to length(s) do sum:=sum+strtoint(s[i2]); if sum mod 4 =0 then inc(ans); end; writeln(ans); end.
Ответ: 253
<u>Считаем кол-во вершин у графа.</u>
Вершины - это точки. Их 10. Значит
1) 10
<u>Считаем ребра</u>
Их ещё называют дугами.
Их 9. З<span>начит
2) 9
</span><u>Считаем изолированные вершины</u>
Это те вершины степень которых равна 0. У нас таких нет. Значит
3) 0
<u>Считаем висячие вершины</u>
Висячие - это степень у которых равна 1. Кстати, степень определяется по количеству ребер, входящих в вершину. У нас 5 висячих вершин. Значит
4) 5
<u>Ищем самую большую степень вершины на графе</u>
Это 4. Значит
5) 4
<span><em><u>Подытожим:</u></em>
1) 10
2) 9
3)0
4)5
5)4
</span>Осталось записать в порядке возрастания:
<span><em><u>Ответ</u></em>: 3,5,4,2,1</span>
Это первый класс
uses crt;
var a,b,sum,pro:integer;
begin
readln(a,b);
for a to b do if a mod 3 =0 then sum:=sum+a;
for a to b do if a mod 3 =0 then pro:=pro+a;
write (summa='sum','proizvedenie='pro);
end.