Составить программу для нахождения периметра и площади квадрата,если известна его сторона. CLS INPUT "введите размер стороны квадрата";Х S=x*x P=4*x PRINT "площадь=";S PRINT "периметр=";P
Const n=4; m=5; var a:array [1..n,1..m] of integer; i,j,min,imin,jmin:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:6); end; writeln; end; min:=a[1,1]; imin:=1;jmin:=1; for i:=1 to n do for j:=1 to m do if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; writeln('min=a[',imin,',',jmin,']=',min); end.
1. Укажіть всі цілі від’ємні числа, що більші за -4,7 .
А) -3,-2,-1; В) -5, -4,-3, -2,-1;
Б) -4,-3,-2,-1,0; Г) -4,-3,-2,-1.
2. Сума двох чисел 25 і одне з них у 5 разів менше за інше. Яка із систем відповідає умові
задачі, якщо менше число позначили через х, а більше – через у?
А) В)
Б) Г)
3.При якому значенні т значення виразу 4-2т дорівнює 7?
А) -1,5; Б) -10; В) 1,5; Г) -5,5.
4. Розв’яжіть рівняння х2 +9х=0
А) 0; Б) -9; В) -9; 0; Г) 0; 9.
5.При якому значенні змінної х дріб не має змісту?
А) 2; Б) -2,4; В) -4; Г) -2.
6. Серед наведених систем укажіть таку, що не має розв’язків
А В)
Б) Г)
7. Чому дорівнює сума та добуток коренів квадратного рівняння х2- 8х +15 = 0;
8.Складіть квадратне рівняння, корені якого дорівнюють 2 - та 2 + .
9.Розв’яжіть систему рівнянь:
10. Розвяжіть рівняння: -у4 -5у2 +36 =0
ІІ рівень
ІІІ рівень
Объяснение:
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10