Есть 6 литров воды и 2 литра воды. Отмерь 1 литр воды.

Знания

Информатика

1 ответ:

sandriloo4 года назад

0 0

Непонятное задание..

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

Решите пожалуйста первую задачу, срочно

san321 [7]

Программа в файле
Program rtr1;Uses crt;Var a:array [1..100] of real; mx, max,min:real; max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do begin if a[i]>=max then max:=a[i]; if a[i]<=min then begin min:=a[i]; min1:=i; end; end; i:=1; while a[i]<>max do begin i:=i+1; end; max1:=i; mx:=a[max1]; a[max1]:=a[min1]; a[min1]:=mx; for i:=1 to n do write('a[',i,']=',a[i],';'); End.

0 0

3 года назад

Помогите даю 100 баллов!

ninok1234

Public Function UserFunction(items As Variant) As Integer

Dim result As Integer

For Each Item In items

If Item < 0 Then

result = result + (Item * Item)

End If

Next Item

UserFunction = result

End Function

Этот код вставляется как новый модуль, Alt+F11, Insert -> Module. После нужно сохранить книгу с поддержкой макросов, это обязательно.

Пример использования ниже:

0 0

3 года назад

Дано целое чисто N(>0).Найдите произведение N!=1*2...*N (N-факториал).чтобы избежать целочисленного переполнения,вычислять эт

пытливый ум [1.8K]

Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>

0 0

4 года назад

Знайди закономірність і продовж ланцюжки літер п, в, с, ч,

DarkSmile2

Понедельник
Вторник
Среда
Четверг

0 0

3 года назад

ПОМОГИТЕ, ЗА ОТВЕТ 15 БАЛЛОВ Прочитайте отрывок. Дедушка подошел к кровати внука, пощекотал его щеку своими седоватыми усами и в

Еми [652]

ТАВ-тактильная. А-аудильная В-визеальная.Вроде так.

0 0

4 года назад

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