запись математических функций на turbo pascal

жизнь может быть или нет.Слева от поля жизни нет никогда ,справа - жизнь есть всегда.провести моделирование и узнать,развивается ли эта система по периодическому закону и получить таблицу на полный период. Практ.задание № 18 иммитационные модели в электронной таблице

Информационное сообщение объёмом в 450 бит, состоит из 150 символв. Каков информационный вес каждого символа этого сообщения?

самолета ТУ-234 Санкт-Петербург-Москва каждый день сентября. Определить, сколько полетов было совершено в среднем за один день этого месяца(массив заполнить через генератор случайных чисел).

2. Определить в предыдущей задаче день, в который совершалось минимальное количество вылетов Санкт-Петербург-Москва.

1)Найти наибольшее среди 2 чисел
2)Для чисел a,b,c,d вывести на экран полусумму наибольшего и наименьшего из них.
Напишите пожалуйста программы для этих задач.

Плис, напишите программу на turbo pascal

if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8

2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4

что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'

Program z2;

uses crt;

var s:string;

k,sum,i,n:integer;

begin

readln(s);

i:=1;

repeat

val(s[i],n,k);

i:=i+2;

sum:=sum+n;

writeln(n);

until i>length(s);

writeln(sum);

readkey;

end.

2) Дано предложение. Удалить из него все буквы с