program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
Объем информации в письме народа x:
50 * log(2)16 = 50 * 4 = 200 бит
Объем информации в письме народа y:
40 * log(2)32 = 40 * 5 = 200 бит
Объемы информации в письмах равны
Var
F:integer;
begin
write('F = ');
readln(F);
writeln( 'C = ',5/9 * (F - 32) );
<span>end.</span>
Var a,b,c,d,e,f:real;
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний балл = ',f);
end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords()[1].Length)
end.
<u>Пример</u>
> А роза упала на лапу Азора
4