Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
Это определение стандартной неэлементарной кусочно-постоянной математической функции sgn(x) - сигнум От латинского signum - знак).
В языке Паскаль эта функция уже определена.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
Writeln('y=',Sign(ReadReal('x=')))
end.
<u><em>Тестовое решение</em></u>
x= 4.564
y=1
1. 2,048 кбайт
2. 416 бит
3. 120*10*8*800*600 = 4 608 000 000бит -> 576 000 000бит -> 576 000байт -> 576 мбайт
4.10*20=200 точек в изображении каждая точка несет в себе 1 бит информации <span>=> 200 бит в изображении
5. монитор</span>
Может это поможет:
Program TemperatureInDecember;
Uses crt;
Var tempDecember : array[1..31] of integer;
i, countPlus, countZero, countMinus : integer;
begin
Clrscr;
countPlus := 0;
countZero := 0;
countMinus := 0;
for i:= 1 to 31 do
begin
if tempDecember = 0 then countZero += 1
else if tempDecember > 0 then countPlus += 1
else countMinus += 1;
end;
writeln('В декабре дней с нулевой температурой было: ', countZero);
writeln('В декабре дней с отрицательной температурой было: ', countMinus);
writeln('В декабре дней с положительной температурой было: ', countPlus);
readln;
end.
Плохо отобразилось, вот скрин:
Program n1;
var a,b:
integer;
beginwriteln ('введите число');
readln (a);
b:= a div 100;
a:= a mod 100;
a:=(a*10)+b;
writeln (a);
end.
program n2;
var a,b:integer;
begin
writeln ('введите год');
readln (a);
b:= a div 100;
writeln (a,' год относится к ',b+1,' столетию');
end.