Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Ответ:
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" - ни положительное, ни отрицательное число.
N-Factorial-1-ден N-ге дейінгі сандардың көбейтіндісі
Скорость печати показывает, сколько страниц принтер печатает за минуту. Скорость черно-белой печати обычно несколько выше, чем скорость цветной. <span>Разрешение</span><span> –</span><span> </span><span>это максимальное число точек на квадратный дюйм (dpi – dots per inch), которое принтер может напечатать. По идее, качество печати тем выше, чем больше разрешение. Рекомендуемые разрешения следующие: для печати текста достаточно 300 dpi, для печати графики – 600 dpi, для качественной печати фотографий – 1200 dpi.</span>
1. Пользователь с помощью него быстро открывает файлы.
2. •Не могу ответить
•Опять не мону
•То, через что манипулируют(изменяют, управляют) файлами.