программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
Это значит ты выкладываешь куда-то
<h2>ответ 30</h2>
количество путей, проходящих через точки:
А 1
Б 1
В 1
Г 3(А+Б+В)
Д 3(=Г)
Е 3(т.к. путь ВЕ не проходит через пункт Г, его не учитываем)
Ж 9(Д+Г+Е)
З 9(=Ж)
И 21(Д+Ж+З)
К 30(И+З)
В) Так как расширение не может быть уникальным,а полное имя файла собственное имя+ расширение.
Uses crt;
var
i,a:integer;
begin
for i:=1 to 16 do
begin
textcolor(i);
a:=random(50);
write(a);
sound(I*100);
delay(5000);
nosound;
end;
readkey;
end.<span>
</span>