Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>
Var i,n,nmb: integer;
<span> dg,sm: real;
</span><span>begin
</span><span> sm:=0; nmb:=0;
</span><span> write('n = ');
</span><span> readln(n);
</span><span> write('числа через пробел: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> read(dg);
</span><span> if dg<0 then</span><span>
</span> begin
<span> sm:=sm+dg;
</span><span> nmb:=nmb+1;
</span><span> end;
</span><span> end;
</span><span> writeln('сумма отрицательных чисел = ',sm);
</span><span> writeln('среднее арифметическое = ',sm/nmb);
</span><span>end.
</span>
Мы познаем мир с помощью органов чувств
Для начала стоит разобраться в том, насколько программирование востребовано в современном мире. Программист - это человек, который не только хорошо разбирается в компьютерах, но и создает новые программы, а также сайты. Фактически это сотрудник, занимающийся IT-технологиями. Программирование - перспективное направление. Получив диплом по соответствующей специальности, можно построить хорошую карьеру. Заработок программиста в среднем составляет 100-150 тысяч рублей. Именно поэтому многие задумываются над поступлением. -
В список подобных вступительных испытаний входит всего 2 предмета. А именно: русский язык; математика. -
прочее-<span>физика; информатика; иностранный язык
</span><span />
Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова «бот» равна 8;
2) сумма цифр слова «вол» равна 9;
3) сумма цифр слова «болт» равна 11;
4) сумма цифр слова «лото» равна 12.
болт - бот = л, л = 11 - 8 = 3
вол = 9 во = вол - л = 9 - 3 = 6
лото =12
ото = лото - л = 12 - 3 = 9
бот=8, значит о > б на 1, л = 3,
<span>о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4</span>