4 года назад

В коробке 10₈ красных карандашей и 111₂ синих .Сколько всего?

Знания

Информатика

1 ответ:

КаТолик [9.9K]4 года назад

0 0

10(8) = 8; 111(2) = 7.

8 + 7 = 15.

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

Написать программу поиск 4-х значного числа, которое при делении на 134 дает в остатке 11

Биатлонист

Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.

Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>

0 0

4 года назад

С клавиатуры вводится 5 целых чисел . Вывести на экран только однозначные числа

Денис Клинчев

var

0 0

4 года назад

Имеется линейная железная дорога, состоящая из некоторого количества станций (задаётся во входных данных). Все станции пронумеро

lena-ht

MS-DOS QBasic
Версия 1.0
Copyright (C) Microsoft Corporation, 1987-1991.

INPUT n, start, finish
k = start + finish
IF k > n THEN k = n
IF k < 1 THEN k = 1
PRINT k

Тестовое решение
Y:\qbasic>QBASIC.EXE
? 10,5,3
8

Чтобы продолжить, нажмите любую клавишу

0 0

4 года назад

Помогите пожалуйста я вас очень прошу ,не могу сделать задание по информатике 6 класс

Леонид валериий

что не опнятно именно? как работает блок-схема?

если в блок-схеме дело, то объясню. Это цикл While(пока). Пишу блок-схему на русском.

Начало

Ввод х, у

Пока х=у, если да то вывод Х и уход на конец.

если нет, идёт дальше условный оператор if(если).

Если x>y если да, то ячейке х присвой значение х-у, если нет, то ячейке у присвой значение у-х. Дальше программа уходит на повтор.

Объясню на примере чисел.

вводим данные х=10, у=15;

10 не равно 15, значит идём на условный оператор if

10 < 15, ячейке У присваиваем значение 15-10

на экране 5.

на всякий могу написать программу.

Program af;

uses crt;

var x,y:integer;

begin

clrscr;

readln(x,y;

while x=y do begin

if x>y then x:=x-y

else Y:=Y-X;

end;

writeln(x);

readln;

end.

0 0

4 года назад

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

8 класс. Выполнить программу линейного вычислительного алгоритма для выражения: y=2x^2 (2x в квадрате). Срочно нужна помощь!!!

Genrbc

Var
X:real;
Begin
Write('X = ');
ReadLn(X);
WriteLn('Y = ',2*X*X);
End.

0 0

4 года назад