Путем пошаговой детализации составьте программы графическим исполнителем для решения следующих :

расчертить все поле в клетку со стороной, равной шагу.
в грис "стрелочка"

215

499

Посмотреть ответы 1

Ответы на вопрос:

супермарио3

Информатика

4,6(90 оценок)

Const n=20; var f1: text; x: array[1..n] of real; i,k: integer; begin assign(f1,'f1.txt'); reset(f1); i: =0; k: =0; while not eof(f1) do begin i: =i+1; read(f1,x[i]); if (x[i]> =0)and(x[i]< =1) then k: =k+1; end; close(f1); writeln('k = ',k); end. пример (для i=1, 10): файл f1.txt: 0.56 1.62 -0.27 1.44 -1.47 0.74 -1.82 -1.80 -1.76 0.72 результат работы программы: k = 3