Вопрос по информатике:
В виде программ:
1 Заполнить массив N числами(N<=1000), введенными с клавиатуры. Вывести числа в строку в прямом и обратном порядке.
2 Ввести число. Заполнить массив цифрами числа. Вывести цифры числа в строку.
3 Заполнить массив четными числами из интервала [a, b].Вывести числа в строку в обратном порядке.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.03.2015 04:50
- Информатика
- remove_red_eye 9916
- thumb_up 14
Ответы и объяснения 1
1-ая
Program one;
Var
n, i : integer;
a : array [1..1010] of integer;
Begin
read(n);
for i := 1 to n do
begin
read(a[i]);
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
for i := n downto 1 do
begin
write(a[i], ' ');
end;
End.
2-ая
Program two;
Var
n, i, k: integer;
a : array [1..1010] of integer;
Begin
read(n);
k := 1;
while (n > 0) do
begin
a[k] := n mod 10;
k := k + 1;
n := n div 10;
end;
for i := k - 1 downto 1 do
write (a[i], ' ');
End.
3-я
Program two;
Var
k, start, endd, i: integer;
a : array [1..1010] of integer;
Begin
read (start, endd);
k := 1;
for i := start to endd do
begin
if (i mod 2 = 0) then
begin
a[k] := i;
k := k + 1;
end;
end;
for i := k - 1 downto 1 do
write (a[i], ' ');
End.
- 26.03.2015 21:02
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.