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

Дано целое двухзначное число а. по заданному алгоритму составьте код программы. алг произведение нач ввод(x) x = x*10 вывод (x) кон алг

Показать ответ
Ответ:
svetar2014
svetar2014
31.08.2022 04:18
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF c = 0 THEN
   IF b = 0 THEN
      PRINT "x=0"
   ELSE
      x1 = 0: x2 = -b / a
      PRINT "x1="; x1, "x2="; x2
   END IF
ELSE
   IF b = 0 THEN
      x1 = -c / a: x2 = -x1
      PRINT "x1="; x1, "x2="; x2
   ELSE
      D = b ^ 2 - 4 * a * c
      IF D < 0 THEN
         PRINT "Нет действительных корней"
      ELSE
         IF D = 0 THEN
            x = -b / (2 * a)
            PRINT "x="; x
         ELSE
            D = SQR(D)
            x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a)
            PRINT "x1="; x1, "x2="; x2
         END IF
      END IF
   END IF
END IF
END
0,0(0 оценок)
Ответ:
voronkovid
voronkovid
14.09.2020 20:59
Традиционное решение:
var
  n,d1,d2,d3,d4:integer;
begin
  Write('Введите четырехзначное натуральное число: ');
  Readln(n);
  d1:=n div 1000; d4:=n mod 10;
  d3:=(n mod 100) div 10;
  d2:=(n mod 1000) div 100;
  n:=1000*d1+100*d3+10*d2+d4;
  Writeln('Результат: ',n)
end.

Тестовое решение:
Введите четырехзначное натуральное число: 4567
Результат: 4657

Решение с использованием символьного представления числа:
var
  s:string;
begin
  Write('Введите четырехзначное натуральное число: ');
  Readln(s);
  Writeln('Результат: ',s[1]+s[3]+s[2]+s[4])
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота