X := 0; for i := -10 to 10 do x := x + i; Сколько раз будет выполнен цикл?

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

program amoeba;   var i,count: integer;   begin  i: =3; //количество часов  count: =1; //количество амеб  while i < = 24 do  begin  count: =count*2; //каждые 3 часа количество амеб удваивается  writeln(i,' hours: ',count); //выводим кол-во часов и амеб  i: =i+3;   end;   readln;   end.

program calc; var x,y: real; beginwrite('первое число: '); readln (x); y : = (1-x*2+5*x*4)*2; //   y : = pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степениwrite ('результат: ',y); end.