Цикл. Задания Должны быть выведены все значения Х и Y, определить при каких значениях Х наблюдается Max и Min и их значения.

import math

s=0

yx=-100

yn=100

i=2

while i<4.1:

   y=math.cos(i)+0.3*i

   print ('x, y =',  "{:.2f}".format(i), ',', y)

   if y>yx:

       yx=y

       xx=i

   if y<yn:

       yn=y

       xn=i

   if y<0: s+=y

   i+=0.2

print ('x, max(y) =', "{:.2f}".format(xx),',',yx)

print ('x, min(y) =', "{:.2f}".format(xn),',',yn)

print ('Sum(y<0) =', s)

Объяснение:

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.