Ответ:
var n,i,c,m,p:integer;
begin
m:=0;
p:=0;
writeln('Введите количество чисел.');
readln(n);
for i:=0 to n-1 do
begin
readln(c);
if c < 0 then m:=m+1
else if c = 0 then continue
else p:=p+1;
end;
if p < m then writeln('Отрицательных чисел больше, чем положительных.')
else if p > m then writeln('Положительных чисел больше, чем отрицательных.')
else writeln('Равное количество положительных и отрицательных чисел');
end.
Объяснение:
Переменные:
n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.
Считаем, что "0" - ни положительное, ни отрицательное число.
var i,B,s:integer;
begin
write('Введите число B: ');
readln (B);
for i:=10 downto B do s:=s+i*i;
writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)
end.
Ответ:
Г
Объяснение:
В электронное письмо можно добавить абсолютно любой файл
1. Можно. Модель - это абстракция, необходимая для решения задачи. Например, материальная точка - это модель, в которой важна только масса, а от всех остальных свойств мы абстрагируемся. Материальная точка массой 1 кг. заменяет кучу разных конкретных объектов при решении физических задач.
2. Здание школы, муляж яблока.
3. Можно. Учат элементам принятия решений.