Запиши целое число в виде суммы разрядных слагаемых — единиц, десятков, сотен, тысяч и так далее.

Знания

Информатика

1 ответ:

валентина т [1]4 года назад

0 0

30048=3•10000 0•1000 0•100 4•10 8•1

97510=9•10000 7•1000 5•100 1•10 0•1

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

Помогите !Решить!!!!!

Камардин

В случаях б) и г) хватит. В других нет.

0 0

4 года назад

Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

АннаУМ

Program Zadacha;
Const c = 4; max = 50;
Var a, b: Integer;
Begin
a := c;
While a < max Do
Begin
If a Mod c = 0 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);
ReadLn;
<span>End.</span>

0 0

4 года назад

Какое значение получит переменная y после выполнения алгоритма? x:=4y:=5∗xy:=y+2y:=y∗xy:=y+3y:=y∗xy:=y+4

Ivan-2017 [76]

x:=4 //x = 4

y:=5∗x //x = 4, y = 20

y:=y+2 //x = 4, y = 22

y:=y∗x //x = 4, y = 88

y:=y+3 // x = 4, y = 91

y:=y∗x // x = 4, y = 364

y:=y+4 // x = 4, y = 368

Ответ: y = 368

0 0

4 года назад

СДЕЛАЮ ЛУЧШИМ!!!умозаключение пример приведите! в 2 посылки 1 заключение

vadim muratov

"Все люди смертны" и "Сократ человек" - посылки, "Сократ смертен" - заключение.

0 0

1 год назад

Дан массив размера N. Вывести вначале его элементы с четными индексами, а затем — с нечетными

GolubevArtem

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
i:=1;
While i <= N do
   Begin
   Write(A[i],' ');
   i:=i+2;
   End;
WriteLn;
i:=2;
While i <= N do
   Begin
   Write(A[i],' ');
   i:=i+2;
   End;
End.

0 0

2 года назад