Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.
(20 * 20)/100=4 Мб.
(1024*1024*8*4)/220=152 520 с.
152 520 + 5 + 1 = 152 526 с.
(1024*1024*20*8)/220=762 601 с.
Ответ : А.
P.S.А ты уверен,что так не килобайты в секунду?
Выделяешь текст (или сразу делаешь стиль) - на выделенном правой мышей - Шрифт - Интервал - Разреженный. Там проставляешь нужное значение.