Используя оператор while, напишите программу, которая выводит на экран значения функции y=f(x) для аргумента, принимающего значение от x1 до x2 с шагом дx: y=x/3 + 2.

Var x1, x2, n: integer; y: real; begin write('введите х1: '); read(x1); n: =x1; write('введите х2: '); readln(x2); while n< > (x2+1) do begin y: =n/3+2; writeln('y =   ',y); n: =n+1; end; end.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

-всех планов

-планов , на которых ровно 4 хода

- планов на которых есть ход к коту

-планов на которых не 4 хода

-планов на которых нет ходов к коту

-планов на которых 4 хода и есть ход к коту

- планов на которых 4 хода и нет ходов к коту

 

на пересечении круга и квадрата - мауси и котауси

в квадрате - джек

в круге - ник

в прямоугольнике - пухлик

 

 

ответ на вопрос: план джека