Даны 3 вещественных числа. определить, сколько из них отрицательных​

ответ:

объяснение:

делаешь цикл из 3 последовательностей

в нем сравниваешь каждое число с нулем, если число меньше 0, значит оно отрицательное и к счетчику прибавляешь 1(счетчик - любая переменная, которая изначально равна 0)

1) var v,h,i: real; begin readln(v); readln(h); i: =h-100; if v=i then writeln('у вас идеальный вес') else  if v> i then writeln('вам нужно похудеть на ', v-i,' кг ') else writeln('вам нужно поправиться на ', i-v,' кг '); end.2)var a: string; b: integer; begin readln(a); b: =strtoint(a[length(a)]); if (b mod 2 < > 0) and (b mod 5 < > 0) then writeln('число не делится ни на 2, ни на 5'); if (b mod 2 = 0) and (b mod 5 < > 0) then writeln('число делится только на 2'); if (b mod 2 < > 0) and (b mod 5 = 0) then writeln('число делится только на 5'); if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 52'); end.

1) по заданному радиусу:   program n1; uses crt; var r,s: real; beginclrscr; writeln('vvedite radius'); readln(r); s: =r*r*pi; writeln('ploshad =',s: 4: 4); readlnend.  2) по заданным сторонам: program n1; uses crt; var a,b,s: real; beginclrscr; writeln('vvedite storoni'); readln(a,b); s: =a*b; writeln('ploshad =',s: 4: 4); readlnend.  3) по заданной стороне program n1; uses crt; var a,s: real; beginclrscr; writeln('vvedite storony'); readln(a); s: =a*a; writeln('ploshad =',s: 4: 4); readlnend.  3) по одной стороне и высоте к ней: program n1; uses crt; var a,b,s: real; beginclrscr; writeln('vvedite storony i vysoty k nei'); readln(a,b); s: =a*b; writeln('ploshad =',s: 4: 4); readlnend.