Запиши число 14334 в развёрнутом виде, начиная со старшего разряда.

Знания

Информатика

2 ответа:

MangoNya [29]4 года назад

0 0

14334=10000+4000+300+30+4
Вроде так

Маринелла [1]4 года назад

0 0

<h3>Ещё можно так,</h3><h3>14334=(10*10³)+(4*10³)+(3*10²)+(3*10)+4</h3>

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

Помогите пожалуйста с задачей на тему "Циклы". Задание во вложении. Выполнить в паскале!

Линси [50]

Program prog;
uses crt;
var a:array[1..201] of integer;
    s,i: integer;

begin
clrscr;

for i:=1 to 201 do
a[i]:=i+100;

for i:=1 to 201 do begin
if a[i] mod 2=1 then begin
s:=s+a[i];
write(a[i],' ');
end;
end;

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

end.

0 0

4 года назад

Даны действительные числа x,y,z. Проверить, нет ли среди них одинаковых чисел и выдать соответствующее сообщение. Если среди дан

Slavatwer [111]

Visual BasicВыделить код

Option Explicit

Function Min_3(a As Variant, b As Variant, c As Variant) As Variant

Min_3 = a

If a > b Then Min_3 = b

If Min_3 > c Then Min_3 = c

End Function

Private Sub Form_Activate()

Dim a As Integer, b As Integer, c As Integer

a = Val(InputBox("Введите число"))

b = Val(InputBox("Введите число"))

c = Val(InputBox("Введите число"))

Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)

End Sub

0 0

4 года назад

Укажите номера чисел по возрастанию: 111(6) десятичный эквивалент номер возрастания 101(8) 110110(2)

Kozak [19K]

111(6)=43(10)
101(8)=65(10)
110110(2)=54(10)
111->110110->101

0 0

4 года назад

Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры). Помогите пожалуйста написать программу в паскале!!!

Vladimir1900fff

Var a,b:string;
i:integer;
begin
readln(a);
readln(b);
for i:=1 to length(a) do
if a[i]=b then continue
else write(a[i]);
<span>end.</span>

0 0

3 года назад

Напишите программу, выводящую true, если высказывание является истинным, и false в противном случае для утверждения: «Сумма цифр

Морской бриз [58]

Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
<span>end.

Надеюсь правильно понял тебя и составил программу верно.</span>

0 0

4 года назад