Program 1;
Var a:array[1..20] of integer;
X, i, k: integer;
Begin
Writeln('введите элементы массива') ;
For i:1 to 20 do
Readln(a[i]);
Writeln('введите х=');
Readln(x);
For i:=1 to 20 do
If x=a[i]
Then k:=k+1;
If k>0
Then writeln('да, содержит')
Else writeln('нет, не содержит');
END.
Var
x1, x2, x3, x4, y1, y2, y3, y4: real;
function VectorLength(x1, y1, x2, y2: real): real;
begin
VectorLength := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
function VectorSlope(x1, y1, x2, y2: real): real;
begin
VectorSlope := (y1 - y2) / (x1 - x2);
end;
begin
readln(x1, y1);
readln(x2, y2);
readln(x3, y3);
readln(x4, y4);
if (VectorLength(x1, y1, x2, y2) = VectorLength(x4, y4, x3, y3))
and (VectorSlope(x1, y1, x2, y2) = VectorSlope(x4, y4, x3, y3)) then
writeln('Yes')
else writeln('No');
end.
Вот фрагмент программы на Паскале:
Write (' d = ');
ReadLn (d);
L:=3.14*d;
WriteLn( ' L = ', L);
1. Язык программирования? Pascal.
2. Популярный антивирусник? Аvast.
3. В чем измеряется коэффициент интеллекта? IQ.
4.<span>Национа́льная баскетбо́льная ассоциа́ция? NBA.
5. Сплав металлов? TITAN.</span>