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

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

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

Никита2112 [34]

4 года назад

14

Запрос: <=50 Какие результаты можно получить?

Запрос: <=50
Какие результаты можно получить?

Информатика

2 ответа:

Н1 Н1 [50]4 года назад

0 0

Все числа которые меньше или равны 50:
43,29,4.

grator4 года назад

0 0

Ну примерно так:…43;4;29;104

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

_мбайт=2035кбайт=_байт

Iren22

Объяснение:

2035*1000=2035000 байт

2035:1000=2,035 мбайт

0 0

4 года назад

PASCAL_ПОЖАЛУЙСТА Добавьте в эту программу(ИМЕННО В ЭТУ ПРОГРАММУ) УСЛОВИЕ, ПРИ КОТОРОМ ОН ЕЩЕ БУДЕТ СЧИТАТЬ "СУММУ" ЧИСЕЛ И ЧЕТ

ПОЛИНА ХЕЙГЕТЯН

VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.

0 0

3 года назад

Написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры.пример:5+5+5=15=1+5=6он

Аь [50]

Var
a, b: integer;

begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;

begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>

0 0

4 года назад

1. Напишите программу, которая запрашивает у пользователя число. Если оно больше нуля, то в ответ на экран выводится число 1. Ес

absolutno [419]

// Аллилуйа человеки в питоне пишут

1.

a = int(input())

if a > 0:

print(1)

else:

print(-1)

2.

a, b = int(input()), int(input())

print(max(a, b))

0 0

4 года назад

2,2 Кбайт равно байт.

Stella [2.4K]

Дробное значение же получается.

1024х2 = 2048

1024 * 0.2 = 204.8

итого 2252,8 ....

как-то некорректно выходит

0 0

4 года назад