1. На отрезке [0; 1] с шагом 0,1 протабулировать функцию: - вопрос №11649519101012 от pudova20001katya 15.03.2023 10:09

Question

Информатика: 1. На отрезке [0; 1] с шагом 0,1 протабулировать функцию: sin^2(x) + cos^2(x) - 10x. Построить её график. 2. Дядя Фёдор, кот Матроскин и пёс Шарик летом жили в а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин. Каждое письмо весило в среднем 100 г, каждая посылка - 5 кг, каждая телеграмма - 50 г, каждая бандероль - 500 г. Дядя Фёдор получил 10 писем, 2 посылки, 10 телеграмм и 1 бандероль. Кот Матроскин получил 4 письма, 1 посылку, 2 телеграммы и

pudova20001katya · Answer

1)VarA:integer;S:real;Begin{Первый S:=0;For A:= 1 to 50 do    S:=S+1/A;WriteLn( S = ,S);{Второй S:=0;A:=1;RepeatS:=S+1/A;A:=A+1;Until A 50;WriteLn( S = ,S);{Третий S:=0;A:=1;While A =50 do   Begin   S:=S+1/A;   A:=A+1;   End;WriteLn( S = ,S)End.Varx:real;Beginx:=-3;RepeatWriteLn( y( ,x, ) = ,((3*x*x-2)/4):0:3);x:=x+0.2Until x 3.2;End.VarA:real;k,i:integer;Begink:=0;WriteLn( Введите десять чисел );For i:= 1 to 10 do    Begin    Read(A);    if A 0 then k:=k+1    End;WriteLn( k = ,k)End....