Составти програму опредилению веса тела, если известна его масса.

Var
P,m:real;
begin
write('Введите массу=');read(m);
P:=(m*9.8);
writeln('Вес тела=',P);
end.

• сбор данных- накопление информации с целью обеспечения достаточной полноты для принятия решений;

• формализация данных - приведение данных, поступающих из разных источников, к одинаковой форме, чтобы сделать их сопоставимыми между собой, то есть повысить их уровень доступности:

• фильтрация данных- отсеивание «лишних» данных, в которых нет необходимости для принятия решений; при этом должен уменьшаться уровень шума, достоверность и адекватность данных должны возрастать;

• сортировка данных - упорядочение данных по заданному признаку с целью удобства использования; повышает доступность информации;

• архивация данных - организация хранения данных в удобной и легкодоступной форме; служит для снижения экономических затрат по хранению данных и повышает общую надежность информационного процесса в целом;

• защита данных - комплекс мер, направленных на предотвращение утраты, воспроизведения и модификации данных;

• транспортировка данных - прием и передача (доставка и поставка) данных между удаленными участниками информационного процесса; при этом источник данных в информатике принято называть сервером, а потребителя - клиентом;

Объем цилиндра = πR²h, объем параллелепипеда = abh
Программа на паскале:
var r,h1,a,b,h2,v1,v2:real;
begin
writeln('Введите данные цилиндра:');
write('R = '); readln(r);
write('h = '); readln(h1);
writeln('Введите данные параллелепипеда:');
write('a = '); readln(a);
write('b = '); readln(b);
write('h = '); readln(h2);
v1:=pi*r*r*h1;
v2:=a*b*h2;
writeln('V1 = ',v1:5:2,' V2 = ',v2:5:2);
if v1 <= v2
 then writeln('Yes') else writeln('No');
end.

Пример:
Введите данные цилиндра:
R = 3
h = 5
Введите данные параллелепипеда:
a = 4
b = 6
h = 5
V1 = 141.37 V2 = 120.00
No