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

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

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

captain black [14]

4 года назад

6

Используя КуМир, найти сумму чисел 2+4+6+...+100Алгоритм , пожалуйста

Используя КуМир, найти сумму чисел 2+4+6+...+100
Алгоритм , пожалуйста

Информатика

1 ответ:

dmitriy12320034 года назад

0 0

Вотрешение. Этонесоложно.

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

Осуществить циклический ввод элементов массива целых чисел [ q [ i, j] , i =1,3; j=1,2] с экрана (использовать функцию InputBox)

Baltika6002 [156]

Sub aaa()
    Dim i As Integer, j As Integer, d
    ReDim q(1 To 3, 1 To 2)
    For i = 1 To 3
        For j = 1 To 2
            q(i, j) = InputBox("Введите элемент (" + Str(i) + "," + Str(j) + ")")
        Next j
    Next i
    Cells(1, 1).Value = "Исходный массив"
    Range(Cells(2, 1), Cells(4, 2)).Value = q
    Cells(5, 1).Value = "Результирующий массив"
    For i = 1 To 3
        If q(i, 1) > q(i, 2) Then
            d = q(i, 1): q(i, 1) = q(i, 2): q(i, 2) = d
        End If
    Next i
    Range(Cells(6, 1), Cells(8, 2)).Value = q
End Sub

0 0

4 года назад

Нужно написать программу на PascalABC Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел

Лисия

Var n,k,s:integer;
begin
writeln('Сколько чисел в последовательности?');
readln(n);
for var i:=1 to n do begin
k:=random(1,30000);
write(k:6);
if k mod 10 = 4 then s:=s+k;
if i mod 10 = 0 then writeln;
end;
writeln();
writeln('Сумма чисел, заканчивающихся на 4: ',s);
<span>end.</span>

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО! Даны целые положительные числа m,n и k. сформировать целочисленную матрицу размером m*n, у которой

VladMa4ete

VAR a:array[1..10000,1..10000]of integer; m,n,k,i,j: integer;
begin
write('Введите 3 целых числа m, n, k = '); read(m,n,k);
writeln;
for i:=1 to m do begin
for j:=1 to n do
a[i,j]:=i+j+k; write(a[i,j]:6);
writeln; end;
<span>end.</span>

0 0

3 года назад

Составьте прогрмму,в которойв водится рост 3-их друзей и выводится самвй высокий. Помогите, пожалуйста)

Тинатин

Program rrr;
Var a,b,c,k: integer;
begin
readln (a,b,c);
if (a>b) and (a>c) then k:=a;
if (b>a) and (b>c) then k:=b;
if (c>a) and (c>b) then k:=c;
writeln (k);
end.

я делала так, но хз что делать если числа будут равны

0 0

4 года назад

Заполнить пропуски значениями, в соответствии с предложенными единицами измерения:_?_Гбайт = _?_ Мбайт = 2500 байт;512 Мбайт = 2

Евгений Малышкин

<span>1Гб=1024 Мб
1024мб = 1048576 кбайт
512мб = 524288 Кбайт

Для информации:
</span>1Мб=1024Кб
1Кб=1024 байта
<span>1 байт= 8 бит</span>

0 0

4 года назад