Ввод нуля означает завершение ввода(он нигде не учитывается)
program test;
var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;
begin
sum:=0;
average:=0;
counter:=0;
sumOfPositive:=0;
sumOfNegative:=0;
read(x);
while x <> 0 do
begin
sum:=sum+x;
average:=average+x;
counter:=counter+1;
if x > 0 then
sumOfPositive:=sumOfPositive+x
else
sumOfNegative:=sumOfNegative+x;
read(x);
end;
average:=average/counter;
writeln('Sum = ', sum);
writeln('Arithmetic average = ', average);
writeln('The sum of positive numbers = ', sumOfPositive);
writeln('The sum of negative numbers = ', sumOfNegative);
readln;
end.
Ответ:
разрешено всё что не запрещено?
или запрещено всё что не разрешено?
запрещены информации об изготовлении или получении наркотиков, порн0графия, способы совершения сYицида и призывов к его совершению, призывы к разжиганию национальной розни, к военным действиям, информация предлагающая купить фальшивые документы, оружие, информация об изготовлении ядов, бомб и тому подобное, экстремизм, оскорбление чувств верующих.
#include <stdio.h>#include <math.h>using namespace std;int main() { size_t n = 2; // Уадяемая цифра int number = 2346224; // Задавай число printf("Входное число: %d\n", number); int sig = number >= 0, temp = number; number = 0; size_t i = 0; while (temp) { int k = temp % 10; if (n != k) { number += (k)* pow(10, i); i++; } temp /= 10; } number *= sig; printf("Результат: %d\n", number); system("pause"); return 0;}
Const
m = 10;
var
a: array[1..m] of integer;
i,j, min: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
if (i=1) or (a[i]<min) then min:=a[i];
write (a[i],'; ');
end;
writeln;
for i:=1 to m do
begin
if a[i]=min then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
break;
end;
end;
a[m]:=0;
write('Измененный массив: ');
for i := 1 to m-1 do
write (a[i],'; ');
<span>end.</span>
<span><span>Будь-яка
інформація передається повідомленнями.
Обмін даними також
здійснюється між тваринами і навіть
рослинами. Так наприклад
робочі бджоли, після того як
зберуть багато нектару і пилок, до вулика
вони повертаються, орієнтуючись за
сонцем . Повернувшись, вони повідомляють
іншим бджолам не тільки про відстань,
на якій знаходиться корм, але передусім
про його положення щодо сонця. За
допомогою спеціального кругового танцю
бджоли розповідають, наприклад, що
джерело нектару знаходиться на відстані
до 100 м від вулика. Якщо ж джерело
знаходиться далі, ніж за 100 м, то бджола
виписує фігуру, подібну до літери „фіта"
старого кириличного алфавіту. Рухаючися
по середній паличці „фіти", бджола
виляє черевцем. </span></span><span> Як
виявилось, рослини активно обмінюються
інформацією між собою. Гриби використовуються
рослинами як система раннього сповіщення
про атаки шкідників. Коли одна рослина
вражається тлею, вона повідомляє про
це сусідів за системою "грибного
зв'язку".</span><span>Цікавою
є поведінка у павуків. Якщо вони дуже
швидко плетуть павутиння, то це віщуває
про похолодання. Якщо ми побачили, що
ластівки низько літають над землею слід
знати, що вони повідомляють про негоду.</span>