ПОМОГИТЕ ПОЖАЛУЙСТА ХОТЯ БЫ ОДНО ЗАДАНИЕ РЕШИТЬ Составить программы ** языке Турбо...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА ХОТЯ БЫ ОДНО ЗАДАНИЕ РЕШИТЬ

Составить программы на языке Турбо Паскаль для решения задач

В1. Даны "Информация" и "Логика". Получить из этих слов словосочетание "Информационные технологии" и определить его длину.

В2. Дан Массив R[1]=12, R[2]=3, R[3]=-5, R[4]=-6, R[5]=4, R[6]=9, R[7]=0, R[8]=8. Найти сумму элементов массива.

В3. Вводить целые числа с клавиатуры, пока не будет введен ноль. Найти разность введенных чисел.

Answer 1

B2 в pascal ABC NET...........................................
B3 в pascal ABC NET:
const  N = 1000;
var  a: array [1..N] of integer;   i, k, p, l: integer;
begin  l := 0;  p := 0;  i := 1;  readln(k);  while k <> 0 do   begin    a[i] := k;    p := i;    i := i + 1;    readln(k);  end;  for i := 1 to p do    l := l - a[i];  writeln(l);end.

---

---

Comments

Восстановите переносы строк, пожалуйста.

---

можете еще хотя бы 1 решить?

---

B1 не могу сейчас, так-как не помню, как со строками работать.

---

Спасибо за помощь! В1 не надо этого достаточно)

---

все работает?