Решение, задачи "Даны действительные числа 1,2,…70. Вывести последовательность 2,3,…,70,1". см. Файл.
P.S. Решение на указателях.
gcc: 4.8.1
Исходные данные:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 <span>44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
После сдвига:
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 1</span>
1.
uses crt;
var x,y,z:integer;
begin
write('x:'); readln(x);
write('y:'); readln(y);
write('z:'); readln(z);
write('x*y*z=',x*y*z);
<span>end.
2.
uses crt;
var x:integer;
begin
write('Введите число:'); readln(x);
if x mod 7=0 then writeln('YES')
else writeln('NO');
<span>end.
3.
uses crt;
var n,x,sum:integer;
begin
write('N:'); readln(n);
sum:=0;
for x:=1 to N do
sum:=sum+x;
write(sum);
<span>end.</span></span></span>
Основные области: Компьютерная инженерия, моделирование, разработка игр.
Динамическое отображение
1 совокупность программных и лингвистических средств общего или специального назначения
===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.