4 года назад

Как разблокировать флешку

Знания

Информатика

1 ответ:

Мария6668889994 года назад

0 0

Сбоку должен быть переключатель вкл выкл

Читайте также

Помогите решить и записать в "турбо паскале". В линейном массиве из 10 целых чисел найти количество нечетных чисел.

Маринуль

Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.

0 0

4 года назад

Вкладник хоче покласти в банк 10000 грн на 2 роки, щоб отриматине менше ніж 2500 прибутку. Банк пропонує 2 иди вкладів: під р1%

женя22123

p1 = 12.5% годовых; p2 = 11.8% годовых

0 0

4 года назад

Составить программу, решающую следующую задачу: Дано число а. Не пользуясь никакими другими операциями, кроме умножения, получит

Kristina Zaharova [249]

$\displaystyle x=a^8={((a^2)^2})^2={((a\times a)^2)}^2 \\ a_1:=(a\times a); \ a_2:=(a_1\times a_1); \ a_3:=(a_2\times a_2)
$

var
x,a,b:longint;

begin
a:=3;
a:=a*a;
a:=a*a;
x:=a*a;
Writeln('3 в степени 8 равно ',x)
end.

Тестовое решение:
3 в степени 8 равно 6561

0 0

4 года назад

Вы пользователь интернета .Какие вопросы вы могли бы задать интернету если бы он был человеком ? Какие обвинения предъявить ?

Stanislav Nurkaev [165]

Главный мой вопрос был бы интернету-человеку - как ты вмещаешь столько информации? Откуда ты все это знаешь и как запоминаешь? Считаешь ли ты себя самым умным и всезнающим человеком? Ставишь ли себя выше всех остальных? Считаешь ли себя незаменимым человеком? А предъявить в обвинения могу тебе (интернет-человек) твою доступность, твои знакомства и связи (начиная с самого маленького возраста). Почему охотно занимаешься разносом самой непроверенной информации и не несёшь за это никакой ответственности.

Даже не знаю, поможет ли это Вам. Как то так, на мой лад получилось)

0 0

4 года назад

Прочитать ещё 2 ответа

c=max(a,b,min(2a,x))+5 Разработайте программу для вычисления значения выражения (basic).

Tadjikistan [64]

Microsoft QBasic

DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#

FUNCTION max# (a#, b#)
 IF a# > b# THEN
 max# = a#
 ELSE
 max# = b#
 END IF
END FUNCTION

FUNCTION min# (a#, b#)
 IF a# < b# THEN
 min# = a#
 ELSE
 min# = b#
 END IF
END FUNCTION

0 0

1 год назад