Предмет: Информатика,
автор: Santa2015
Дано 15 целых чисел. определить, сколько из них больше предыдущего и последующего чисел. найти сумму цифр каждого такого числа.
Выполнить в среде разработки паскаль
Ответы
Автор ответа:
0
program A;var a,i,n:integer;a:=15;i:=0;if a>i then writeln ('Число а больше чем i на ', a-i) else writeln ('Число i больше чем а на ', a-i);n:=1while a<15 do begin a:=n+1+a; end;writeln (n);end.
Santa2015:
встретились перед запуском мелкие ошибки. но теперь повторно объявленный идентификатор а.
Автор ответа:
1
//PascalABC.NET
var
A: array [1..15] of integer;
i, sum, n: integer;
begin
for i := 1 to 15 do
begin
A[i] := random(1001)-500;
write(A[i], ' ');
end;
writeln;
for i := 2 to 14 do
if ((A[i] > A[i - 1]) and (A[i] > A[i + 1])) then
begin
sum := 0;
n := A[i];
while ( n<>0 ) do
begin
sum := sum + (n mod 10);
n := n div 10;
if n in [-9 .. -1] then
begin
if sum - abs(n) < 0 then
sum := abs(sum) - abs(n)
else
sum := sum - abs(n);
break;
end;
end;
writeln('Сумма цифр числа ', A[i], ' = ', sum);
end;
end.
var
A: array [1..15] of integer;
i, sum, n: integer;
begin
for i := 1 to 15 do
begin
A[i] := random(1001)-500;
write(A[i], ' ');
end;
writeln;
for i := 2 to 14 do
if ((A[i] > A[i - 1]) and (A[i] > A[i + 1])) then
begin
sum := 0;
n := A[i];
while ( n<>0 ) do
begin
sum := sum + (n mod 10);
n := n div 10;
if n in [-9 .. -1] then
begin
if sum - abs(n) < 0 then
sum := abs(sum) - abs(n)
else
sum := sum - abs(n);
break;
end;
end;
writeln('Сумма цифр числа ', A[i], ' = ', sum);
end;
end.
Похожие вопросы
Предмет: Русский язык,
автор: tonakanyanqnqush
Предмет: Алгебра,
автор: varvara13909
Предмет: Қазақ тiлi,
автор: arunaamanzol17
Предмет: Алгебра,
автор: denovekin
Предмет: Алгебра,
автор: stepannikova80