Очень важно и поподробнее Четыре молодых рабочих - Антонов, Петров, Степанов и Демьянов - работают на одном предприятии и учатся заочно. Как составить для них график свободных от работы дней в первые четыре дня, исходя из таких условий производства:
1) если во вторник выходными будут Демьянов или Антонов, то Степанову нужно дать выходной в понедельник;
2) если Демьянова освободить от работы в четверг, то Антонова нужно освободить в понедельник, и Степанова в среду;
3) если Степанова освободить от работы во вторник или Демьянова освободить в среду, то Петрову нужно давать выходной день в четверг;
4) если Антонов будет освобожден в среду, то у Петрова выходной день будет во вторник, а если Петрову поставить выходной в среду, то Антонов может не приходить на работу во вторник;
5) если Демьянову высвободить понедельник, то у Степанова выходной прийдется на среду, а если Демьянов получит выходной в среду, то тогда Антонов может не приходить на работу во вторник

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

алгоритм-это организованная последовательность действий.

свойства алгоритма: дискретность, , массовость, детерминированность, конечность.

алгоритм:

1)взять линейку

2)найти длинный всех сторон

3)сложить все три строны треугольника

4)записать ответ

(извиняюсь если алгоритм не правильно написан, с не дружу)

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)