program chizla;
var k,x,i,a:integer;
begin
x:=0;
k:=0;
writeln ('Введите числа');
for i:=1 to 10 do
begin
readln(a);
if a<0 then
k:=k+1;
if a>0 then
x:=x+1;
end;
writeln('Положительных ',x,' Отрицательных ',k);
end.
1.<span>Что из ниже перечисленного имеет свойство передавать информацию?<span>
Верный ответ: </span></span><span>г) световой луч
2.</span><span>Выберете событие, которое можно отнести к информационным процессам...
Верный ответ: </span><span>б) перекличка присутствующих на уроке</span>
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон
Надо посчитать количество символов, включая пробелы. Здесь 34 символа. 34*2=68 байт - информационный объём предложения.
Program ch ;
Var x:integer ;
BEGIN
X:=1;
While xl=7 Do(можешь выбрать другое число)
BEGIN
Write (x, ' ') /в' ' это пробел /
X:=x+1
End ;
END.