===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Sum.Print
end.
Объяснение:
После ввода нуля на следующей строке будет выдана сумма. Числа можно вводить и в строку, но в любом варианте, если в строке после нуля набрать еще цифры, в сумму войдут лишь те, которые шли до первого встреченного нуля.
Если хочется именно МАССИВ (т.е. чтобы он так назывался в программе) будет чуть длиннее:
begin
var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;
a.Sum.Print
end.
Задание номер 1:
<span>Знаковой моделью является:
</span>Ответ под "Вариант 4" диаграмма.
ОТВЕТ: Диаграмма.
Задание номер 2:
<span>Материальной моделью является:
Ответ под "</span><span>Вариант 1" макет самолета;
ОТВЕТ: Макет самолёта.</span>
Язык Python
S = raw_input("Введите площадь:")
a = S**0.5
b = 2*a
c = (5*S)**0.5
print "Длины сторон треугольника -", a, b, c
Для общей работы
⇄⇄⇄⇄⇄⇄⇄⇄⇄ и обмена информацией