1. Напишите программу которая даст 12 слагаемых чисел из [-35..35] и вычислить их...

Question

1. Напишите программу которая даст 12 слагаемых чисел из [-35..35] и вычислить их сумму.2. Напишите программу, которая вычислить в байтах длину введённого текста.Срочно, пожалуйста!Паскаль

Comments

паскаль?

---

Да

Answer 1

Первая программа

var number, i, summa: integer;

begin

summa := 0;

randomize;

 for i := 0 to 12 do begin

   number := random(-35,35);

   writeln(number);

   summa := summa + number;

 end;

writeln(summa);

end.

Вторая программа

var text:string;

   i, len:integer;

begin

len := 0;

 readln(text);

 for i := 0 to length(text)-1 do begin

   len := len + 1;

 end;

 writeln(len*SizeOf(string));

end.