Uses Crt;
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int arr[100],n,k;
scanf("%d",&n);
k=0;
for(int i=0;i<n;i++)
scanf("%d",&arr[i]);
for(int i=0;i<n;i++)
if(i==0 && arr[i]>arr[i+1])k++;
else
if(i==n-1 && arr[i]>arr[i-1])k++;
else
if(arr[i]>arr[i-1] && arr[i]>arr[i+1])k++;
printf("%d",k);
return 0;}
var a: array[0..9] of integer;
<span> s: string;
</span><span> i,j: integer;
</span><span>begin
</span><span> for i:=0 to 9 do a[i]:=0;
</span><span> write('число: '); readln(s);
</span><span> for i:=1 to length(s) do inc(a[ord(s[i])-48]);
</span><span> i:=9;
</span><span> while a[i]=0 do i:=i-1;
</span><span> j:=i;
</span><span> i:=0;
</span><span> while a[i]=0 do i:=i+1;
</span><span> if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
</span><span> (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)])
</span><span> then writeln('Да')
</span><span> else writeln('Нет');
end.
</span>
число: 18245390
<span>Да
</span>число: 1205483Нет
1) program znanija2;
var speed, A, X:integer;
time:real;
begin
readln(A);
readln(X);
speed:= A * 3;
time:= X / speed;
writeln(time);
end.
2)
program znanija3;
var P:integer;
tax, rest, wages, answer:real;
begin
read(P);
tax:=(P*70)/100;
rest:= P - tax;
wages:= (rest*70)/100;
answer:= wages / 8;
writeln(answer);
end.
Ответ:100101001
Объяснение:Черный квадратик - 1, белый - 0