Придумать 3 задачи которые можно решить с помощью компьютера ( Паскаля) .1 задача организуя линейный алгоритм 2 задача с помощью
Придумать 3 задачи которые можно решить с помощью компьютера ( Паскаля) . 1 задача организуя линейный алгоритм 2 задача с помощью разветвляющегося алгоритма 3 задача с помощью циклического алгоритма нужно составить программы этих задач для Паскаль Прошу спасите меня ((((((
1)На координатной прямой отмечены три различные точки с координатами x1, x2, x3
соответственно. Улитка проползла из первой точки во вторую, затем из
второй точки в третью и затем из третьей точки вернулась в первую.
Выведите суммарную длину пути улитки. Пример: Входные данные: 1 2 3 Выходные: 4 Входные:0 -3 -6 Выходные: <span>12
( // PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var (a,b,c) := ReadInteger3('Введите a,b,c'); Writeln(abs(a-b)+abs(b-c)+abs(a-c)); end. ) 2.1) В Берляндии наступили тяжелые времена: инфляция и снижение курса бурля не дают гражданам покоя. Каждый житель Берляндии, в том числи и Баба Нюра, имеет так называемый "последний патрон"(заначка), который гарантированно сможет покрыть все расходы на этот месяц. Известно, что сейчас у Бабы Нюры есть M бурлей наличными и K фунтликов в Берляндском банке. Курс обмена 1 фунтлик = Z бурлей. Обязательные расходы Бабы нюры составляют G бурлей на продовольственные товары и U бурлей на оплату комунальных услуг. На Ваши плечи ложится задача: определить, понадобится ли Бабе Нюре этот самый "последний патрон", в случае если он понадобится вывести "ДА", в противном - "НЕТ". В единственной строке ввода содержатся M,K, Z, G, и U В единственной строке вывода должно содержаться 1 слово "ДА" или "НЕТ" Входные:150 5 35 100 10 Выходные: НЕТ Входные: 150 5 40 100 100 Входные: Да</span> <span>(согласен, много лишней инфы, но в том и прикол. Больше бреда - лучше задача) // PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var (M,K,Z) := readInteger3; var (G,U) :=readInteger2; if (M < G + U)then Writeln('ДА')else Writeln('НЕТ'); end. 2.2)(Если задача выше слишком "больная")</span> Сегодня Вася получил своё домашнее задание по информатике. Оно состоит из трёх задач с номерами a, b и c. Вася согласен их решать только если выполняются условия a + b = c или a * b = c,
но не оба условия одновременно. Однако проверка данного критерия
оказалась ему не по силам и он обратился за помощью к вам. Напишите
программу, проверяющую будет ли Вася решать домашнее задание или нет. В единственной строке выведите единственное целое число: 1 если Васе придётся делать домашнее задание и 0 в противном случае. // PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var (a,b,c) := readInteger3; if (a + b = c) xor (a*b = c) then Writeln(1) else Writeln(0); end. 3) Вывести K раз фразу "Привет, сосед". 0 < K < 100000 // PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin For var i:= 1 to readInteger do Writeln('Привет, сосед'); end.