№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
end.
Первый номер, чтобы не было нарушения.
№2
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.

P.S. Надеюсь на благодарность и лучший ответ.

0 0

4 года назад

Дано натуральному число. Верно ли,что сумма его цифр не меньше 10?

Наталлли [147]

Нет, это может быть любум числом, (например 11-1+1=2-меньше 10)

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу в VBA, сравнивающую два числа, вводимые с клавиатуры.

Рузана1989

Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub

0 0

4 года назад

:Â ячейке B1 записана формула =2*$A1. Какой вид приобретет формула, после того как ячейку B1 скопируют ячейку C2? Выберите один

yby24 [39]

=2*$A2

идет адресация к одному столбику.

0 0

4 года назад