Var
a,b,c:real;
Begin
Write('Введите длины сторон треугольника: ');
ReadLn(a,b,c);
if (a<b+c)and(b<c+a)and(c<a+b) then
Begin
if (a=b)and(b=c) then WriteLn('Треугольник равносторонний')
else if (a=b)or(b=c)or(c=a) then WriteLn('Треугольник равнобедренный')
else WriteLn('Произвольный')
End
else WriteLn('Треугольник не существует');
End.
1) 0,4 кг =400 гр -это 100% , 1%=400:100=4гр, следовательно 15% = 15*4=60 грамм,
60 гр составляют 1/5 часть конфет, значит 1 целая конфет = 60*5=300 гр. , тогда вес коробки= 400-300=100 гр.
2) аналогично:
50 кг - это 100%, тогда 1%=50:100=0,5 кг, отсюда 45%=0,5*45=22,5 кг и это половина всех конфет, значит все конфеты весили 22,5*2=45 кг, тогда ящик весит 50-45=5 кг
<span>3) 60 кг = 100%, 24%=60:100*24=14,4 кг-это четверть конфет, значит все конфеты весили 14,4*4=57,6 кг, тогда ящик весит 60-57,6=2,4 кг</span>
A:=x
<span>b:=a*2+5 =>b:=x*2+5
a:=x+x*2+5:=20
3x:=15
x:=5 равно первоначальному значению а.
<em><u>Ответ: 5.</u></em></span>
1) Потому-что при выключении ПК оперативная память очищается.
Это ряд цифр в информатике. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.