Var a:array[1..20] of integer;
i, k:integer;
fout:text;
begin
for i:=1 to 20 do
a[i]:=20 - random(41);
assign(fout, 'out.txt');
rewrite(fout);
for i:=1 to 20 do
if a[i] mod 2 = 0 then
k:=k+1;
if k <> 0 then
for i:=1 to 20 do begin
if a[i] mod 2 = 0 then
write(fout, a[i], ',');
end
else write(fout, 'Четных элементов массиве нет.');
close(fout);
end.
В EXCEL заполни первый столбец, как показано на рисунке
В ячейку B1 занеси формулу, как показано в строке формул
Корень будет на том промежутке, где функция МЕНЯЕТ знак, у нас это промежутки:
-3,00 -2,50
0,00 0,50
и
2,50 3,00
Теперь сделай эти промежутки "МЕЛЬЧЕ", например
-3,0
-2,9
-2,8 и т.д и опять смотри, где функция СМЕНИТ знак....
И так далдьше
Ответ:
Первое слово - монитор
Второе слово - логика
3-е слово - клавиатура
Число: 11
Объяснение:
1-е слово - есть только в 3 таблице, т.е монитор
2-е в 1 и 4, т. е логика, слово число отпадает так как есть еще и в 3 таблице.
3-е слово клавиатура, так как есть во 2 и 4 табл.
Число : мОнИтОр (3) + лОгИкА (3) + клАвИАтУрА (5) = 3+3+5 =11