Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 06.03.2015
Сообщений: 2
1

Введите 3 числа с клавиатуры и выведите в левом верхнем углу экрана четные из них

06.03.2015, 11:22. Показов 1971. Ответов 2
Метки нет (Все метки)

составить программу, введите 3 числа с клавиатуры и выведите в левом верхнем углу экрана четные из них, а в правом нижнем углу - нечетные, используя синий цвет для четных и красный для нечетных. помогите плиз
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2015, 11:22
Ответы с готовыми решениями:

Введите номер ноты и выведите ее название в правом верхнем углу экрана
Составить программу. Введите номер ноты и выведите ее название в правом верхнем углу экрана,...

Выяснить, имеются ли четные числа в верхнем левом или в нижнем левом углу
Доброго) Дан двухмерный массив целых чисел. Выяснить, имеются ли четные числа в верхнем левом или...

Выяснить, есть ли четные числа в левом верхнем или в нижнем левом углу матрицы
Дано двумерный массив целых чисел. выяснить: а) есть ли четные числа в левом верхнем или в нижнем...

Непонятные квадратики в левом верхнем углу экрана
Привет всем. непонятные квадратики в левом верхнем углу экрана после нажатия кнопки...

2
105 / 105 / 51
Регистрация: 11.04.2014
Сообщений: 160
06.03.2015, 13:03 2
Лучший ответ Сообщение было отмечено rita1234 как решение

Решение

Цитата Сообщение от rita1234 Посмотреть сообщение
составить программу, введите 3 числа с клавиатуры и выведите в левом верхнем углу экрана четные из них, а в правом нижнем углу - нечетные, используя синий цвет для четных и красный для нечетных. помогите плиз
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a:array[1..3] of integer;
    i: integer;
begin
     readln(a[1],a[2],a[3]);
    clrscr;                   {очистка экрана}
    gotoxy (1,1);
    textcolor (1);     {цвет символов выбираем синий}
    for i:=1 to 3 do
    begin
         if(a[i] mod 2)=0
         then write(a[i]:5);
    end;
    gotoxy (60,25);
    textcolor (4);       {цвет символов выбираем красный}
    for i:=1 to 3 do
    begin
         if(a[i] mod 2)<>0
         then write(a[i]:5);
    end;
end.
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
06.03.2015, 13:21 3
Или так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a:array[1..3] of integer;
    s1,s2:string;
    i: integer;
begin
writeln('Введите 3 целых числа');
readln(a[1],a[2],a[3]);
clrscr;                   {очистка экрана}
s1:='';
s2:='';
for i:=1 to 3 do
if a[i] mod 2=0 then s1:=s1+inttostr(a[i])+' '
else s2:=s2+' '+inttostr(a[i]);
gotoxy (1,1);
textcolor (1);     {цвет символов выбираем синий}
write(s1);
gotoxy (80-length(s2),25);
textcolor (4);       {цвет символов выбираем красный}
write(s2);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2015, 13:21

Вывести текущее время в верхнем левом углу экрана
Вывести текущее время в верхнем левом углу экрана. Помогите плиз. Нужен код программы на...

Вывод координат мыши в левом верхнем углу экрана
Подскажите, как исправить: координаты и сообщения мигают на экране (постоянно идет обработка). И...

Расположение текста в верхнем левом углу экрана без смещения
Написал следующий код: &lt;html&gt; &lt;meta charset=&quot;utf-8&quot;&gt; &lt;head&gt; &lt;title&gt;Интернет-магазин...

Введенным символом нарисовать квадрат (10х10) в верхнем левом углу экрана
Помогите пожалуйста! Введенным символом нарисовать квадрат (10х10) в верхнем левом углу экрана....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru