Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне

@KaLeKbl4 · Регистрация: 05.10.2010

Author24 — интернет-сервис помощи студентам

Ввести массив из 10 чисел. Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне, в столбик. Второе окно должно появиться через 2 сек после первого. При появление второго окна звучит звуковой сигнал.
Выход из программы - нажатием клавиши Esc.
(заранее спасибо)

@Puporev · 03.03.2011, 15:06

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i:byte;
    c:char;
begin
textbackground(0);
textcolor(15);
clrscr;
gotoXY(35,1);
write('Выход - Esc');
for i:=1 to n do
a[i]:=i;
window(5,5,15,10);
textbackground(7);
textcolor(4);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],' ');
delay(2000);
sound(500);
delay(200);
nosound;
window(25,5,30,15);
textbackground(6);
textcolor(1);
for i:=1 to n do
if a[i] mod 2<>0 then writeln(a[i],' ');
repeat
c:=readkey;
if c=#27 then exit;
until c=#27;
end.

Новые блоги и статьи
Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .
КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .	Rust или Go? А может C++? hw_wired 28.01.2025 С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .

@KaLeKbl4 0 / 0 / 0 Регистрация: 05.10.2010 Сообщений: 30
		1
	Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне 03.03.2011, 14:47. Показов 4061. Ответов 1 Метки нет (Все метки) Ввести массив из 10 чисел. Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне, в столбик. Второе окно должно появиться через 2 сек после первого. При появление второго окна звучит звуковой сигнал. Выход из программы - нажатием клавиши Esc. (заранее спасибо) 0

	03.03.2011, 15:06

Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне

Решение