• 
  • 26 December 2020
  Информатика
  • Автор: chicken1000

  

  ПОМОГИТЕ СДЕЛАТЬ БЛОК СХЕМУ!!! На языке Паскаль
  
  1.Заданы стороны треугольника. Проверить является ли он равнобедренным
  
  2. Найти сумму нечетных чисел в промежутке от 20 до n

• 
  • 26 December 2020
  • Ответ оставил: 1000FORMSofFEAR

  №1
  var a, b, c: integer;
  begin
  read(a, b, c);
  if((a = b) or (b = c) or (c = a)) then
  write('Треугольник равнобедренный')
  else 
  write('Треугольник неравнобедренный');
  end.
  
  БЛОКСХЕМА:
  начало
  ввод сторон(a, b, c)
  если a = b или b = c или с = a, то
  вывести: 'треугольник равнобедренный'
  иначе вывести: 'треугольник неравнобедренный'
  конец
  
  №2
  var n, s, i: integer;
  begin
  s := 0;
  read(n);
  for i := 20 to n do begin
  if (i mod 2 <> 0) then s := s + i;
  end;
  write(s);
  end.
  
  БЛОКСХЕМА:
  начало
  s := 0, i := 20
  ввод числа n
  пока i не равно n
     если i - нечётное, то
        прибавить к s
  вывести  s
  конец
  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (23.07.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы