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

@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.

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

	03.03.2011, 15:06

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

Решение