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

Запишите с букв и знаков логических операций каждое составное высказывание. 1) число 376 чётное и трёхзначное. 2) зимой дети катаются на коньках или на лыжах. 3) новый год мы встретим на даче или на красной площади. 4) неверно, что солнце движется вокруг земли. 5 земля имеет форму шара, который из космоса кажеться голубым. 6) на уроке старшеклассники ответили на вопросы учителя, а также писали самостоятельную работу.

👇
Ответ:
Yuliaferyuo
Yuliaferyuo
28.06.2021

ну я не понимаю как это с букв 0_o

если первые буквы брать то так:

1)376 - Ч∧Т

2)зимой дети катаются на К∨Л

3)н.г. мы встретим на Д∨П

4)(С движется вокруг З)=0

5)З=шар, З-голубая=1

6)С-ответили ∧ писали

 

0-ложь

1-правда

∧-и

∨-или

 

 

 

 

4,4(80 оценок)
Открыть все ответы
Ответ:
Vikylilaha
Vikylilaha
28.06.2021
Var x:Array[1..3] of integer;// координаты точекy:Array[1..3]of integer;// координаты точекs:Array[1..3]of real; // расстояние между точками b:Array[1..3]of real; // длина бессектрисы   p: real;  beginfor var i:= 1 to 3 dobegin  write('Введите координаты ', i ,' точки');  readln(x[i], y[i]);  end;  writeln('Начало расчетов');  for var i:= 1 to 3 dobegin
if (i < 3) then begin  s[i] := sqrt((x[i]-x[i+1])* (x[i]-x[i+1]) + (y[i]-y[i+1])* (y[i]-y[i+1]));  p := p + s[i];  end  else begin  s[i] := sqrt((x[i]-x[1])* (x[i]-x[1]) + (y[i]-y[1])* (y[i]-y[1]));  p := p + s[i];  end;
  writeln('Расстояние между ', i ,' и ', i+1,' точками    = ', s[i]);  end;    p := p /2;  writeln('полупериметр = ', p);    for var i:= 1 to 3 do  beginif (i = 1) then   b[i] := 2* sqrt(s[1]*s[2]*p * (p - s[3]))/(s[1]+s[2]);if (i = 2) then   b[i] := 2* sqrt(s[2]*s[3]*p *(p - s[1]))/(s[2]+s[3]);if (i = 3) then   b[i] := 2* sqrt(s[3]*s[1]*p *(p - s[2]))/(s[3]+s[1]);   writeln('Длина ', i, ' бессиктрисы ', b[i]); end;end.//определяющую по координатам трёх точек длины биссектрис треугольника,//если таковой существует. (PascalABC)
4,4(37 оценок)
Ответ:
ihorrubalko
ihorrubalko
28.06.2021

Пока N > 0

S := S + N mod 10

N := N div 10

N mod 10 - это последняя цифра числа N,

N div 10 - это результат отбрасывания последней цифры из N,

т.е. в результате S будет содержать сумму цифр N

Сама же программа считает сумму цифр числа S, затем сумму цифр получившегося числа, и т.д., пока не получится одна цифра.

Кажется, такую цифру называют "цифровым корнем" числа, но на самом деле в десятичной системе счисления это просто остаток от деления на 9.

(поскольку (10*a + b) mod 9 = (9*a + a + b) mod 9 = (a+b) mod 9)

Для вывода 0 и 7 на вход надо подать число S = 7

Для вывода 1 и 7 на вход нужно подать число >= 10 с суммой цифр = 7, минимальным таким числом является 16.

Для вывода 2 и 7 на вход нужно подать такое число, что если сумму его цифр передать на вход, будет выведено 1 и 7. Т.е. сумма цифр будет по крайней мере не меньше 16, значит само число не меньше 79 (это наименьшее число, сумма цифр которых >= 16).

Для вывода 3 и 7 нужно подать число, сумма цифр которого при передаче на вход дас результат 2 и 7, т.е. сумма цифр не меньше 79, тогда само число не меньше 799999999 (наименьшее число с суммой цифр >= 79).

Получаем, что число S = 799999999 дает требуемый вывод, и не существует чисел меньше, которые бы тоже давали такой результат (показано ранее + можно дополнительно проверить программно, перебирая всевозможные S, занимает несколько минут).

4,7(34 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ