Задать вопрос!

Задать вопрос!

Все категории

3 года назад

14

ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ

ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ

Информатика

1 ответ:

Айдар 3463 года назад

0 0

Граф приведен во вложении. Кратчайший путь выделен красным цветом, его длина составляет 2+1+2=5

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

Составь кроссворд из 6 слов, чтобы в выделенных клетках получилось слово "СОСТАВ". (Впиши номера слов и обведи нужные клетки.) П

Chris704 [20]

П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака

0 0

3 года назад

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

Помогите пожалуйста 85 задание !!!

Игорь Коломоец

3 клавиатуры * 2 мыши * 2 гарнитуры = 12 способов

0 0

4 года назад

Найти произведение строк где на главной диагонали отрицательное число

ИннаВасенко [7]

Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
<span>End.</span>

0 0

4 года назад

Сколько фильмов объёмом 700 Мегабайт можно закачать на флэш - накопитель объёмом 16 Гигабайт?

Сергей Владимиров...

1Гб=1024Мб, 1024 умножить на 16, и разделить на 700 =23

0 0

4 года назад

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

Дано 10 чисел найти сумму нечётных чисел? Pascal

Роман44

program fgh;

var i, s, n, a:integer;

begin

s:=0;

writeln('введите 10 чисел');

for i:= 1 to 10 do

begin

readln(a);

if a mod 2 <> 0 then

s:=s+a;

end;

writeln('сумма= ', s);

end.

0 0

4 года назад