Program ca;
var
p, i: integer;
begin
i := 3;
p := 1;
while i <= 23 do
begin
p := p * i;
i := i + 2;
end;
writeln('p = ', p);
end.
Говорит что арифметич.переполнение
2задания )Задан массив А [1..5].Составить программу ,которая выводит на экран элементы массива в обратном порядке.
3)задания:Задан массив А [1..15].Составить программу ,которая выводит разность суммы элементов массива чётными индексами и элементов массива с нечётными индексами
3 комментария:
Я запустил в PascalABC, всё работает.
Ок,спасибо
1ый РЕШИЛИ !!!! 2И 3 ОСТАЛОСЬ!!!!
Я запустил в PascalABC, всё работает.
Ок,спасибо
1ый РЕШИЛИ !!!! 2И 3 ОСТАЛОСЬ!!!! Ответы
Гость Второе:
program o;
var A:array[1..5] of integer; i:integer;
begin;
for i:=1 to 5 do readln(A[i]);
for i:=5 downto 1 do writeln(A[i])
end.
Третье:
program p;
var A:array[1..15] of integer; i,sum1,sum2,res:integer;
begin;
for i:=1 to 15 do read(A[i]);
for i:=1 to 15 do
if i mod 2=0 then sum1:=sum1+A[i] else sum2:=sum2+A[i];
res:=sum1-sum2;
write(res);
end.
Нет комментариев
Похожие вопросы
Информатика
Помогите пожалуйста...
Информатика
Помогите пожалуйста...
Информатика
Для чего предназначено приложение Paint?...
Информатика
Объясните структуру Интернет адресов....
Список предметов
