Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.
По степени преобразования различают первичную и производную информацию.
Первичная информация сохраняется или используется в том виде, в каком была получена. Основной метод ее образования — первичный учет (пересчет, перевес, проверка по качеству), а также использование данных входящих документов в неизменном виде.
Преобразованая информация получается путем переработки первичной. Она формируется в результате составления отчетов на основе учетных данных или заимствования полученной первичной информации (составление карточек количественно-суммового учета и журнала регистрации движения товаров на основе товаросопроводительных документов). Надеюсь помогла вам.
Млекопетающие(сумчатые,грызуны(бобры),хищники(гепарды,медведи(бурый медведь,панды)),ластоногие(тюлени,моржи),парнокопытные(олени,бегемоты,свиньи))