Составить программу вычисления (-3)+(-2)+(-1)+0+1+...+11 Вывести на печать результат 3 варианта!!!!
begin
//1 вариант
Range(-3, 11).Sum.Println;
//2 вариант
Range(-3, 11).Aggregate(0, (Sum, x)-gt; Sum + x).Println;
//3 вариант
var Sum := 0;
foreach var x in Range(-3, 11) do
Sum += x;
Sum.Println;
//4 вариант
Sum := 0;
for var i := -3 to 11 do
Sum += i;
Sum.Println;
//5 вариант
Sum := 0;
var j := -3;
while j lt;= 11 do
begin
Sum += j;
j += 1
end;
Sum.Println;
//6 вариант
Sum := 0;
j := -3;
repeat
Sum += j;
j += 1;
until j gt; 11;
Sum.Println;
end.
Другие вопросы в разделе - Информатика
План рассказа про черную курицу, или подземные жители ...
2018-09-23 00:00:00
Сообщение на тему "Как земля и труд людей кормили" ...
2018-09-23 00:00:00
Найдите пожалуйста сказку про лису!!!!! СРОЧНО!!! ...
2018-09-23 00:00:00
1)Найти сумму всех целых чисел на заданном интервале. 2) ...
2018-09-23 00:00:00