Информация – это совокупность каких-либо сведений, данных, передаваемых устно (в форме речи), письменно (в виде текста, таблиц, рисунков, чертежей, схем, условных обозначений)либо другим например, с звуковых или световых сигналов, электрических и нервных импульсов, перепадов давления или температуры и т.д.).
В середине 20 века термин «информация» стал общенаучным понятием, включающим обмен сведениями между людьми, человеком и автоматом (ЭВМ), автоматом и автоматом, обмен сигналами в животном и растительном мире, передачу признаков от клетки к клетке, от организма к организму.
Теоретические и практические вопросы, относящиеся к информации, изучает информатика.
var
a, s, x, n: integer;
begin
writeln('Введите число: ');
read(n);
a := 1; x := 1000;
while x <> 0 do
begin
s := (n div x) mod 10;
a := a * s;
x := trunc(x / 10);
end;
writeln('Результат: ',a);
end.
цикла repeat:
var
a, s, x, n: integer;
begin
writeln('Введите число: ');
read(n);
a := 1;
x := 1000;
repeat
s := (n div x) mod 10;
a := a * s;
x := trunc(x / 10);
until x < 1;
writeln('Результат: ', a);
end.