Дана сочинила стихотворение на тему и опубликовала его в Интернете. Ее одноклассник Тимур,
нашел в Интернете это стихотворение, скачал его и сказал
всем в классе, что является автором этого стихотворения.
Дана, узнав об этом, сильно расстроилась. Как можно
объяснить Тимуру,
копирование
чьего-либо произведения незаконно?​

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

в одном килобайте 1024 байта а значит 2,5 кбайта=2,5*1024=2560 байтов,в одном байте 8 битов а значит 2560 байтов=2560*8=20480 битов.чтобы найти за сколько времени передастся данный файл надо весь его размер разделить на скорость с которой он передается: 20480/2560=8 минут.

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.