Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;

Это все что я помню...

0 0

4 года назад

ИНФОРМАТИКА 10 КЛАСС . ПРОГРАММИРОВАНИЕ ПАСКАЛЬ.Написать ПРОЦЕДУРУ, которая принимает на вход числа m и n и печатает на экране п

Дарья Наумова [11]

program yaneznayupascal;

procedure PS;

var m, n, S, P : integer;

begin

write('Введите число m (длина): ');

readln(m);

write('Введите число n (ширина): ');

readln(n);

S := m*n;

P := 2*m+2*n;

write('S = ', S);

write('P = ', P);

end;

begin

PS;

end.

0 0

4 года назад

Задание 3. Напишите программу на Паскале для решения следующей задачи. Даны два числа x и y, не равные друг другу. Меньшее из эт

Таня2012

Вариант программы и результата её выполнения на скриншотах.

0 0

4 года назад

Сколько значащих нулей в двоичной записи числа 1020?

Oksibeals [7]

2 нуля!!!!!!!!!!!!!!!

0 0

3 года назад

Прочитать ещё 2 ответа