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

4 года назад

Запишите в развёрнутом виде следующие числа: 361,105 (10)

Знания

Информатика

2 ответа:

Igorka844 года назад

0 0

361=300+60+1
105=100+5

ира05024 года назад

0 0

361,105(10) = 3*10^2+6*10^1+1*10^0+1*10^(-1)+0*10^(-2)+5*10^(-3)

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

Для чего египтяне использовали значки-определители??? =)

neroff [6]

Значки-определители не читались, они несли исключительно смысловую нагрузку. <span>
</span>

0 0

4 года назад

Информатика 4-кл, помогите пожалуйста, что это такое и как это делать???

Татьяна Тихонова [2]

Ответ:

Стиль вращения

Говорение

Объяснение: Там все пишет

0 0

1 год назад

Дано число n проверить есть ли в записи 3 одинаковых числа (число не больше 10 000)

lekar14 [4]

Var A:array[1..5] of Integer;
j,l,i,k,N:integer;
begin
Readln(N);
While not(N=0) do
begin
k:=k+1;
A[k]:=N mod 10;
N:=N div 10;
end;
For i:=1 to min(3,k) do
begin
N:=A[i];
l:=0;
For j:=1 to k do
If N=A[j] then
l:=l+1;
If l>=3 then
begin
Writeln('В записи есть три одинаковых чисел');
l:=20;
break;
end;
end;
If not(l=20) then
Writeln('В записи нет трех одинаковых чисел');
end.

0 0

4 года назад

Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элемента. Задач

daya23

Sub abc()

Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer

n = 15

ReDim a(1 To n) As Integer

For i = 1 To n

a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")

Next i

aMax = a(1)

aMin = a(1)

For i = 2 To n

If a(i) > aMax Then aMax = a(i)

If a(i) < aMin Then aMin = a(i)

Next i

MsgBox "Сумма max+min =" & Str(aMax + aMin) & _

" их разность =" & Str(aMax - aMin)

End Sub

0 0

4 года назад

9 задание,помогите,пожалуйста

kamomik [14]

Цикл for будет повторяться 6 раз, значит программа на выходе выдаст 72

0 0

4 года назад