В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
ilonappp18
ilonappp18
07.12.2020 23:03 •  Информатика

Опишите последовательность создания трехмерной модели головного убора цилиндров в программе скетч​

Показать ответ
Ответ:
vgrecuha6
vgrecuha6
22.12.2022 14:46


Program Vlad971997;
uses crt;
var
  a,b,c:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  write('Введите a '); readln(a);
  write('Введите b '); readln(b);
  write('Введите c '); readln(c);
  if (a>=b+c) or (b>=a+c) or (a>=b+c) then
      writeln('ответ "0": Со сторонами a,b,c нельзя построить треугольник')
    else
      if (a=b)and (b=c) and (a=c) then
          writeln('ответ "3": Со сторонами a,b,c можно построить равносторонний треугольник')
        else
          if (a<>b)and (b<>c) and (a<>c) then
              writeln('ответ "1": Со сторонами a,b,c можно построить другой треугольник')
            else
              writeln('ответ "2": Со сторонами a,b,c можно построить равнобедренный треугольник')
end.

 

Проверено - работает на Паскаль АВС

0,0(0 оценок)
Ответ:
Trap00ra
Trap00ra
10.01.2022 20:58

Program egor4774442;
uses crt;
const n=9;
var
  e:array[1..n] of integer;
  min, nom,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  randomize;
  for i:=1 to n do
    e[i]:=random(100)-50;
  min:=e[i];
  nom:=1;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if (e[i]<min) and (e[i]>0) then
        begin
          min:=e[i];
          nom:=i;
        end;
      write (e[i]:5);
    end;
  writeln();
  writeln('Наименьший положительный элемент массива:  ',min);
  writeln('Его номер:  ',nom);
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота