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
ІІ рівень
ІІІ рівень
Объяснение:
program spk;
var i,s,k:integer;
p:real;
a:array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(81)-30;
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do if i mod 2 = 0 then s:=s+a[i];
p:=1;
for i:=1 to 10 do if a[i] < 0 then p:=p*a[i];
for i:=1 to 10 do if a[i] mod 2 <> 0 then k:=k+1;
write('s = ',s,' p = ',p,' k = ',k);
end.
Объяснение:
program spk;
var a:array [1..10] of integer;
i,s,k:integer;
p:real;
begin
p:=1;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(81)-30;
write(a[i],' ');
if i mod 2 = 0 then s:=s+a[i];
if a[i] < 0 then p:=p*a[i];
if a[i] mod 2 <> 0 then k:=k+1
end;
writeln;
writeln('Сумма элементов массива, с четными номерами, равна ',s);
writeln('Произведение отрицательных элементов равно ',p);
writeln('Количество нечётных элементов равно ',k)
end.
1) через for
Program Quad;
var a,i: integer;
begin
for i:=11 to 20 do begin
a := i*i;
writeln (i, '^2 = ', a);
end;
end.
2) через while
Program Pow;
var a,i: integer;
begin
i := 11;
while i <= 20 do begin
a := i*i;
writeln (i, '^2 = ', a);
i:= i+1;
end;
end.
3) через repeat
Program Pow;
var a,i: integer;
begin
i:= 11;
repeat
a := i*i;
writeln (i, '^2 = ', a);
i:=i+1;
until i>20;
end.