Написать программу на с++ программа, которая будет обращаться к функции рандом для получения координат в точке t и s n раз. при этом определяется попадает ли точка с координатами x y в круг единичного радиуса. считаются все точки, попавшие в круг
1) Program hhh54; var x:longint; begin read (x); if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ') else write ('НЕ ЯВЛЯЕТСЯ'); end.
2) а) Progran hhh54; var i,k,x:longint; begin k:=0; read (x); while x <> 0 do begin if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1; read (x); end; write (k); end.
б) Progran hhh54; var i,s,x:longint; begin s:=0; read (x); while x <> 0 do begin if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x; read (x); end; write (s); end.
{$APPTYPE CONSOLE} Var U:array[1..10000] of integer; h,k:integer; Begin Randomize; Write('h = ');ReadLn(h); Write('Исходный массив:'); For h:= 1 to h do Begin U[h]:=random(2*h+1)-h; Write(' ',U[h]) End; WriteLn; Write('k = ');ReadLn(k); For h:= 1 to h do if U[h] = k then Write(h,' '); ReadLn; End.
2)
{$APPTYPE CONSOLE} Var B:array[1..10000,1..10000] of integer; m,n,j,Max:integer; Begin Randomize; Write('m = ');ReadLn(m); Write('n = ');ReadLn(n); For m:= 1 to m do Begin Max:=1; For j:= 1 to n do Begin B[m,j]:=random(21)-10; Write(B[m,j]:4); if B[m,j] > B[m,Max] then Max:=j; End; WriteLn(', Max = ',B[m,Max],'[',m,',',Max,']'); End; ReadLn End.
Program hhh54;
var x:longint;
begin
read (x);
if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
else write ('НЕ ЯВЛЯЕТСЯ');
end.
2)
а)
Progran hhh54;
var i,k,x:longint;
begin
k:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
read (x);
end;
write (k);
end.
б)
Progran hhh54;
var i,s,x:longint;
begin
s:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
read (x);
end;
write (s);
end.
{$APPTYPE CONSOLE}
Var
U:array[1..10000] of integer;
h,k:integer;
Begin
Randomize;
Write('h = ');ReadLn(h);
Write('Исходный массив:');
For h:= 1 to h do
Begin
U[h]:=random(2*h+1)-h;
Write(' ',U[h])
End;
WriteLn;
Write('k = ');ReadLn(k);
For h:= 1 to h do
if U[h] = k then Write(h,' ');
ReadLn;
End.
2)
{$APPTYPE CONSOLE}
Var
B:array[1..10000,1..10000] of integer;
m,n,j,Max:integer;
Begin
Randomize;
Write('m = ');ReadLn(m);
Write('n = ');ReadLn(n);
For m:= 1 to m do
Begin
Max:=1;
For j:= 1 to n do
Begin
B[m,j]:=random(21)-10;
Write(B[m,j]:4);
if B[m,j] > B[m,Max] then Max:=j;
End;
WriteLn(', Max = ',B[m,Max],'[',m,',',Max,']');
End;
ReadLn
End.