Последовательный порядок выполнения действий и наличие в каждой программной строке только одного оператора (т.е. без ветвления и циклов)
Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
Дано:
Учеб - 200 стр
1 стр - 35 строк
1 строка - 50 символов
Решение:
1) 50*35=1750 (символов) - на одной странице
2) 1750*200=350000 (символов) - в учебнике
3) так как в задаче не указан метод кодировки, то будем использовать кодировку ASCII ( в ней 1 символ равен 1 байту, также есть кодировка UNICODE, в которой 1 символ равен 2 байтам).
Итак, 1 символ = 1 байту, тогда
350000*1=350000 (байт)
350000/1024 = 341,7 (Кб) - объём одного учебника.
4) переведём 2 Гб в Кб
2 Гб*1024 = 2048 (Мб)
2048*1024= 2 097 152 (Кб)
5) Разделим полученный объём на объём одного учебника:
2 097 152/341,7 = 6137 (учебников)
Информация, как таковая, не материальна (в отличие от носителя этой самой информации). А все то, что касается нематериальной сферы довольно сложно формализуется.
До того, как некий автор закрепил информацию на некоем носителе (бумажном, цифровом или каким-либо другом) в доступном для другого человека виде, она считается несуществующей. Поэтому следует различать такие понятия как замысел и его воплощение (то есть материализация).
Это что касается формирования и публикации информации. Но есть еще один необходимый фактор: восприятие. Можно находиться в нескончаемом потоке информации, но при этом не иметь возможности ее воспринять. То есть для информации необходим еще и субъективный фактор - возможность восприятия.
И материя и энергия неким образом информируют нас как о самом факте своего существования, так и о связанных с ними процессах. Какая-то информация нам доступна, какая-то нет.
Вещество и энергию мы считаем реально существующими и доступными для исследования. Информация-же субъективна и вопрос о том, каким образом эта самая субъективная информация связана с реальным миром до сих пор остается открытым.
Program n1;
var i,q,r,t: real;
begin
readln(i,t,r);
q:=i*i*r*t;
writeln(q);
end.
