Question

Придумать 3 задачи которые можно решить с помощью компьютера ( Паскаля) .1 задача организуя линейный алгоритм 2 задача с помощью разветвляющегося алгоритма3 задача с помощью циклического алгоритма нужно составить программы этих задач для Паскаль Прошу спасите меня ((((((

Answer 1

1)На координатной прямой отмечены три различные точки с координатами x1, x2, x3 соответственно. Улитка проползла из первой точки во вторую, затем из второй точки в третью и затем из третьей точки вернулась в первую. Выведите суммарную длину пути улитки.
Пример:
Входные данные: 1 2 3
Выходные: 4
Входные:0 -3 -6
Выходные: 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
Входные: Да
(согласен, много лишней инфы, но в том и прикол. Больше бреда - лучше задача)
// 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)(Если задача выше слишком "больная")
Сегодня Вася получил своё домашнее задание по информатике. Оно состоит из трёх задач с номерами 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.

Answer 2

1. Задача организуя линейный алгоритм: Написать программу, которая принимает на вход два числа и выводит их сумму. Пример решения на Pascal: program Summation; var num1, num2, sum: integer; begin writeln('Enter the first number: '); readln(num1); writeln('Enter the second number: '); readln(num2); sum := num1 + num2; writeln('The sum of the two numbers is: ', sum); end.

2. Задача с помощью разветвляющегося алгоритма: Написать программу, которая проверяет, является ли введенное число четным или нечетным и выводит соответствующее сообщение. Пример решения на Pascal: program EvenOdd; var num: integer; begin writeln('Enter a number: '); readln(num); if num mod 2 = 0 then writeln('The number is even') else writeln('The number is odd'); end.

3. Задача с помощью циклического алгоритма: Написать программу, которая выводит таблицу умножения для заданного числа. Пример решения на Pascal: program MultiplicationTable; var num, i: integer; begin writeln('Enter a number: '); readln(num); for i := 1 to 10 do writeln(num, ' * ', i, ' = ', num * i); end.