1 Ввести число N.
2 Присвоить x единицу.
1 Возвести x в квадрат и присвоить полученное значение переменной y.
2 Если y < n, вывести значение y на экран.
3 Увеличить значение x на единицу.
Пока y не станет больше n
var
x,y,N:integer;
begin
write('Enter N: ');
readln(N);
x:=1;
repeat
;
if y ;
x:=x+1;
until y>N;
readln
end.
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
- Самая ценная информация – объективная, достоверная, полная, и актуальная.