правильный ответ будет - 2
'VBScript 5
Sub Zadanie17645662(x)
yy = 0
if x >= 3 then
yy = Sqr(Sqr((1 + x * x) / x))
else
yy = (x + 1) / Cos(x * x * x)
end if
z = -4 * Sqr(1 + Sin(yy) * Sin(yy))
MsgBox z
End Sub
Call Zadanie17645662(01)
После окончания цикла получается такое уравнение: 48+a[0]-a[10]. По условию a[10]>a[0], a A это целочисленный массив и надо найти наибольшее значение S, можно сделать вывод, исходя из формулы, что каждый элемент больше прередущего на 1, то есть a[10]=a[0]+10. Подставив любое целое число получим ОТВЕТ: 38.
Первый вопрос б) банкоматы
Второй вопрос в)или д)
Var
i,a,b:Integer;
Begin
Read(a,b);
for i:=a to b do
begin
Write(i*i,' ');
end;
end.
удачи тебе