Задание 4 Отметьте точки: 1(2,6), 2(2,8), 3(1,10), 4(2,11), 5(4,8), 6(13,8), 7(15,6), 8(10,6), 9(8,2), 10(5,2), 11(7,6), 12(7,8)
нэли
Получился самолет
Ставишь точки на координатной плоскости и соединяешь последовательно, как в задании
Var
a, b, c, p: real;
a1, b1, c1: real;
a2, b2, c2: real;
function SideLength(a1, a2, b1, b2: real): real;
begin
SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;
begin
writeln('1.Найти сумму трех чисел');
readln(a, b, c);
writeln(a + b + c);
writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
readln(a, b);
writeln(sqrt(a * a + b * b));
writeln('3.Найти среднеарифметическое двух чисел.');
readln(a, b);
writeln((a + b) / 2);
writeln('4.Найти длину окружности,если известна площадь круга.');
readln(a);
writeln(sqrt(a / pi) * 2 * pi);
writeln('5.Какой процент составляет число а от числа b.');
readln(a, b);
writeln(a / b * 100);
writeln('6.Найдите площадь треугольника с помощью формулы Герона.');
readln(a, b, c);
p := (a + b + c) / 2;
writeln(sqrt((p - a) * (p - b) * (p - c) * p));
writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
readln(a, b);
c := a + b;
writeln(pi * (c * c - b * b));
writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
readln(a1, a2, b1, b2, c1, c2);
writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);
writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
a := SideLength(a1, a2, b1, b2);
b := SideLength(c1, c2, b1, b2);
c := SideLength(a1, a2, c1, c2);
writeln(a, ' ', b, ' ', c);
end.
<span>ТТ в начале слов не встречается, поэтому первая Г
– – • Г
Дальше либо Е либо И.
Пускай вторая Е (ГЕ):
• – – • • – – • • – </span>
Третья либо Е, либо А, либо П.
Если третья П (ГЕП):
<span>• – – • • –
Тогда четвертая либо Е, либо А.
Пускай четвертая Е(ГЕПЕ).
</span><span> – – • • –
Пускай четвертая А(ГЕПА)
</span>– • • –
Тогда пятая только Т (ГЕПАТ)
<span>• • –
ГЕПАТЕА, ГЕПАТИТ (осмысленное слово).
</span>
Пускай вторая И (ГИ):
– – • • – – • • –
Третья либо Г либо Т.
Пускай третья Г(ГИГ):
<span>• – – • • –
Пускай третья Т (ГИТ)
</span>
– • • – – • • –
Ответ: гепатит.
<span>Program flint</span>
<span>var </span>
<span>S, i: integer; </span>
<span>begin </span>
<span>writeln('Введите S'); </span>
<span>readln(S); </span>
<span>for i:=1 to 10 do </span>
<span>s:=s*1,03/0,98; </span>
<span>writeln('Реальная сумма через 10 лет: '); </span>
<span>writeln(S); </span>
<span>readln(); </span>
<span>end.</span>
Ответ:
Паскаль
Program krug;
var r,d:real;
Begin
writeln ('Введите радиус круга ');
readln(r);
d:=2*r;
write ('Диаметр круга равен ', d);
End.
Объяснение: