#include <bits/stdc++.h>
using namespace std;
int main() {
int n, x;
cin >> n;
int i = 0;
while (i < n) {
cin >> x;
if (x == 0) {
cout << "YES" << endl;
return 0;
}
++i;
}
cout << "NO" << endl;
return 0;
}
Ответ: a)
program dz;
var
k,a,b:real;
begin
read(a,b);
k:=(sqrt(a)+sqrt(b))/sqrt(sqr(a)+sqr(b));
write(k);
end.
б)
program dz;
var
x,z,y:real;
begin
read(z,y);
x:=z*y/sqrt((sqr(z)*z)+(sqr(y)*y));
write(x);
end.
Объяснение:
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
№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;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
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.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>