Ты разве уже это не просил? Внутри кода замени все вопросы и ответы на свои. Затем скомпилируй если надо
Ответ:1)Ира
Объяснение:
Ира сказала один раз неправду и один раз правду, Соня только правду, а Таня пыталась скрыть Иру и свалить все на Соню, поэтому она сказала только ложь.
2)Реал-1, Барселона-2 и Манчестер-3.
Program asd;
Var a1,a2,a3:integer;
sr:real;
BEGIN
Write('Введите А1: ');
Readln(a1);
Write('Введите A2: ');
Readln(a2);
Write('Введите А3: ');
Readln(a3);
If (a1>=5) and (a1<=10) then Writeln('Есть. ',a1)
else
If (a2>=5) and (a2<=10) then Writeln('Есть. ',a2)
else
If (a3>=5) and (a3<=10) then Writeln('Есть. ',a3)
else
Writeln('Нету.')
<span>END.</span>
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
Ответ:
Объяснение:
72₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1001000₂
01001000₂ (72₁₀)
10110111₂ (инвертируем разряды)
10111000₂ (добавляем 1, получаем -72₁₀)
101₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100101₂
01100101₂ (101₁₀)
10011010₂ (инвертируем разряды)
10011011₂ (добавляем 1, получаем -101₁₀)