begin writeln ('Введите любые три числа '); readln(a); readln(b); readln(c); count:=0; if a mod 2=0 then inc(count); if b mod 2=0 then inc(count); if c mod 2=0 then inc(count); if count>0 then writeln ('Среди данных чисел есть ',count,' четн.') else writeln ('Среди данных чисел четных нету');
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
Компакт - диск царапается и теряется на нём информация. Он подойдёт в том случае, если ты его будешь реже испоьзовать. Флешка более долговечна и надёжнее, так как её не повредишь и также можна хранить огромный объём информации. Если смотреть на цену, то диск будет дешевле, чем флешка. В последнее время компакт - диск стал понемногу уступать флешке. Были ещё дискети, но их уже тоже перестали выпускать. Они могли размагнититься от воздействия магнитов и електронных полей и можно было легко повредить. Считаю, что флешка является найболее надёжной и долговечной.
var a,b,c,count:integer;
begin
writeln ('Введите любые три числа ');
readln(a);
readln(b);
readln(c);
count:=0;
if a mod 2=0 then inc(count);
if b mod 2=0 then inc(count);
if c mod 2=0 then inc(count);
if count>0 then writeln ('Среди данных чисел есть ',count,' четн.')
else writeln ('Среди данных чисел четных нету');
end.