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

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

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

4 года назад

13

Памагить решить 15 номер

Памагить решить 15 номер

Информатика

1 ответ:

nataart9916 [14]4 года назад

0 0

Карандаш лампочка ботинок юбка кошелёк

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

(паскаль) составить программу определяющую является ли шестизначный номер билета счастливым ( у которого сумма первых трех цифр

Юлия Белова

Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.

0 0

3 года назад

Решить задачу: Дано натуральное число n (n > 9). Найти: а) число единиц в нем; б) число десятков в нем.Напишите программу для

Михаил Панарин

Ответ:

n = int(input('введите число'))

e = n % 10

d = n // 10

print(e, ' единиц ', d, ' десятков')

Объяснение:

0 0

4 года назад

В данной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру. Например,строка "653" преобразуется в строку "66

antonios5 [10]

CLS
INPUT a$
L = LEN(a$)
i = 1
DO WHILE i < L + 1
s$ = MID$(a$, i, 1)
c = VAL(s$)
IF c \ 3 = c / 3 THEN
  a$ = LEFT$(a$, i) + s$ + RIGHT$(a$, L - i)
  L = L + 1
  i = i + 1
END IF
i = i + 1
LOOP
<span>PRINT a$</span>

0 0

3 года назад

60 баллов за решение! Напишите программу для решение такой задачи: В числе 333** дописать справа две цифры так,что бы данное чис

Семен_15

Var
i:integer;
begin
i:=33300;
while (i mod 55 <> 0) do begin
i:=i+1;
end;
writeln(i,'/55=',i/55);
end.

0 0

1 год назад

Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего предложения из пушкинского четверости

Галина Кок

Решение: используем алфавитный подход кодирования информации.Считаем все символы (буквы , знаки, пробелы). Получаем40 – букв3 – знака препинания7 – пробеловИтого 50 знаков по 1 байту – 8 битI = 50*8 = 400 битВерный ответ 1

0 0

3 года назад

Прочитать ещё 2 ответа