1)а
2)b
3)a
4)b
5)a
6)b
7)b
8)a
9)b
10)b
11)b
12)b
13)b
14)c
15)c
16)c
17)a
18)c
19)b
20)3*(А1+В1)/(5*(2*В1-3*А2))
21)b
22)c
23)b
24)с
25)=B7*V7
26)a
27)c
28)c
29)b
30)b
1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:
var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.
Предполагается, что будет введено минимум одно значение. <span>var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.</span> <span>P.S. Если понравилось решение не забудь отметить как лучшше. </span>
<em>var</em>
<em> a, b, c : integer;</em>
<em> </em>
<em>begin</em>
<em> write('введите a ');</em>
<em> readln(a);</em>
<em> write('введите b ');</em>
<em> readln(b);</em>
<em> write('введите c ');</em>
<em> readln(c);</em>
<em> writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));</em>
<em>end.</em>
протестировано в PascalABC.Net
