Регистрация
kceniakey
12.08.2022 17:39
Информатика
Есть ответ 👍

Решить на языке паскаль с операторами цикла while и repeat: напечатать положительные значения y=sin x, если x=1, 2, . 40 , заранее .

217
458
Посмотреть ответы 2

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

mango34
mango34
4,8(60 оценок)

var x,y: real;

begin

x: =1;

repeat

y: =sin(x);

if y> 0 then writeln('x = ',x,' y = ',y: 0: 3);

x: =x+1

until x=11;

writeln;

x: =1;

while x< 11 do

begin

y: =sin(x);

if y> 0 then writeln('x = ',x,' y = ',y: 0: 3);

x: =x+1

end

end.

SHEVENIST
SHEVENIST
4,6(31 оценок)

as = []

ns = ["Антон", "Борис", "Виктор"]

for n in ns:

as.append(int(input("Возраст {}a: ".format(n

j = 0

M = []

m = max(as)

for a in as:

if a == m:

M.append(j)

j +=1

if len(M) == 1:

print("{} старше всех.".format(names[M[0]]))

elif len(M) == 2:

for i, v in enumerate(ns):

if i not in M:

mol = v

print("{} и {} старше {}a.".format(names[M[0]], names[M[1]], mol))

точки - отступы, примеры проверены мной в компиляторе, код раб

Объяснение:

Популярно: Информатика