Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Ploxoy_programi
0 / 0 / 0
Регистрация: 09.11.2014
Сообщений: 10
#1

Дана стопка писем черного и белого цвета

19.11.2014, 18:38. Просмотров 805. Ответов 1
Метки нет (Все метки)

Дано стопку писем черного и белого цвета. Их размещают на столе следующим образом: первый ставят на стол, второй - под низ стопки, третий - на стол, четвертый - под низ стопки и т.д. Определить исходное положение писем в стопке, если на столе они чередуются: черный, белый, черный, белый и т.д.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2014, 18:38
Ответы с готовыми решениями:

Написать программу, которая выводит на экран окружности разного цвета: от синего до белого
Написать программу, которая выводит на экран изображенный узор. Окружности...

Выбрать из списка автовладельцев фамилию владельца, его адрес, госномер автомобиля " мерседес " белого цвета
составить программу выбирающую из списка автовладельцев фамилию владельца, его...

Нарисовать 14 разноцветных вертикальных полос, окрашенных 14 цветами (кроме белого и черного)
Нарисовать 14 разноцветных вертикальных полос, окрашенных 14 цветами (кроме...

Задача по записям. напечатайте информацию обо всех владельцах "Волг" черного цвета.
Сведения о каждой машине включает в себя следующую информацию: модель (строка...

Вывести на экран монитора правильный треугольник белого (White) цвета таким образом, чтобы он плавно вращался вокруг своего центра по часовой стрелк
Вывести на экран монитора правильный треугольник белого (White) цвета таким ...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
19.11.2014, 19:51 #2
Лучший ответ Сообщение было отмечено Ploxoy_programi как решение

Решение

хмм.. а какая тема?
Если правильно понял задание, то вот вариант решения через массив:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const
  n = 10;
var
  a, b: array[1..n] of string;
  i, k: integer;
begin
  writeln('Ïîëó÷åГ*Г*Г*Гї ñòîïêГ*');
  for i:=1 to n do
  begin
    if odd(i) then a[i]:='black' else a[i]:='white';
    writeln(a[i],' ');
  end;
  k:=0;
  writeln('ÈñõîäГ*Г*Гї ñòîïêГ*');
  for i:=1 to n div 2 do
  begin
    inc(k);
    b[k]:=a[i];
    inc(k);
    b[k]:=a[n-i+1];
  end;
  for i:=1 to n do
    writeln(b[i]);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2014, 19:51

пусть в трех урнах находятся шары черного и белого цвета
пусть в трех урнах находятся шары черного и белого цвета, обозначение...

Из урны, в которой 4 шара белого цвета, 2—черного и 3—синего, наудачу извлекается m=4 шаров. Вычислить
Из урны, в которой находится 4 шаров белого цвета, 2—черного и 3—синего,...

Поменять белого и черного короля местами
На шахматном поле 2 короля( чёрный и белый). Находятся в клетках T(черный) и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru