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

Нарисуй в тетрадях модель фигуры в 3д формате​

👇
Открыть все ответы
Ответ:
06637381
06637381
06.07.2020

1

1. Ввод числа n с клавиатуры(пользователем)

2. Переменная res принимает значение 'NO'

3. Переменная a1 принимает значение 0

4. Переменная а2 принимает значение 0

5. Пока n больше 0 выполнять цикл:

   6. Переменная a1 принимает значение остатка от деления введенного    числа на 10

   7. Переменная а2 принимает значение остатка от целочисленного деления введенного числа на 1(пример целочисленного деления: 12 // 5 = 2)

   8. Если переменная а1 равна переменной а2, то выполнить условие

       9. Переменная res принимает значение 'YES'

   10. Введенное число нацело делится на 10.

11. Вывести переменную res

2

1. Ввод числа n с клавиатуры

2. Переменная res принимает значение 'NO'

3. Переменной d1 присваивается значение 0

4. Переменной d2 присваивается значение 0

5. Пока введенное число больше 0 выполнять цикл:

   6. Переменная d1 принимает значение остатка от деления введенного числа на 10

   7. Переменная m принимает целочисленное деление переменной d2 на 10

   8. Пока переменная m больше 0 выполнять цикл:

       9. Переменной d2 присвоить значение остатка от деления m на 10

       10. Если переменная d1 равна переменной d2, то выполнить условие:

           11. Переменной res присвоить значение 'YES'

       12. Присвоить переменной m значение целочисленного деления m на 10

   13. Присвоить переменной n результат целочисленного деления n на 10

14. Вывести переменную res

Вроде ничего не упустил.

4,6(85 оценок)
Ответ:
zarizatamara00
zarizatamara00
06.07.2020
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
  writeln('Введите строны первого треугольника: ');
  read(a1, b1, c1);
  writeln('Введите стороны второго треугольника: ');
  read(a2, b2, c2);
  p1 := (a1 + b1 + c1) / 2;
  p2 := (a2 + b2 + c2) / 2;
  s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
  s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
  if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
                                           else writeln('Неравновеликие');
end.
4,6(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ