М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
алик143
алик143
24.08.2021 16:39 •  Информатика

в какой системе счисления возможно равенство 95+59=110

👇
Ответ:
хотам3
хотам3
24.08.2021
Я не знаю (прости).. ну например 110-95=59 (как-то так я прост новенькая и вот)
кстати я сестра Нруто таннтебане!
4,7(75 оценок)
Ответ:
лох249
лох249
24.08.2021
В четырнадцатиричной.

Объяснение: Записываем всё в виде уравнения и переносим в правую часть, получив тем самым квадратное уравнение, одно из решений (положительное) представлено ниже.
4,5(36 оценок)
Открыть все ответы
Ответ:
skata9196
skata9196
24.08.2021

Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 10х10. Также нам неизвестен тип данных (целочисленный или вещественный), так что допустим, что массив заполняется целочисленными элементами. Тогда, программа примет следующий вид:

 VAR

A: ARRAY [1..10, 1..10] OF INTEGER;

 i, j: BYTE; {Переменные-счётчики циклов}

 flag: BOOLEAN: {переменная флаг логического типа, сигнализирующая о наличии или отсутствии отриц.элементов в первой строке}

BEGIN

flag := FALSE; {Изначально допустим, что отриц.элементов нет}

 FOR i := 1 TO 10 DO

 FOR j := 1 TO 10 DO

 READLN (A[i, j]); {Заполняем массив элементами}

FOR i := 1 TO 10 DO

IF A[1, i] < 0 THEN flag := TRUE; {Проверяем первую строку на наличие отриц. элементов}.

IF flag THEN WRITELN ('Да') ELSE WRITELN ('Нет');

END.

Если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.



4,4(46 оценок)
Ответ:
derevyaniy02
derevyaniy02
24.08.2021
1) var a1, a2, a3, s: integer;
begin    
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.

2) var n, s, i: integer;
begin    
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.

3) var n, s, i, k: integer;
begin    
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.

4)var  l, m: integer;
begin 
write('Введите расстояние в сантиметрах: '); 
readln(l); 
m := l div 100; 
write('Количество метров в ', l, ' сантиметрах = ', m);
end.
4,7(51 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ