Важная информация
Показано с 1 по 2 из 2

Тема: помогите срочно))

  1. #1 помогите срочно)) 
    Новичок
    Регистрация
    05.04.2013
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    В рождественский вечер на окошке стояло три цветочка, слева на право: герань, крокус и фиалка. Каждое утро Маша вытирала окошко и меняла местами стоящий справа цветок с центральным цветком. А Таня каждый вечер поливала цветочки и меняла местами левый и центральный цветок. Требуется определить порядок цветов ночью по прошествии K дней.

    Входные данные

    Во входном файле INPUT.TXT содержится натуральное число K – число дней (K <=1000).

    Выходные данные

    В выходной файл OUTPUT.TXT требуется вывести три латинских буквы: «G», «C» и «V» (заглавные буквы без пробелов), описывающие порядок цветов на окошке по истечении K дней (слева направо). Обозначения: G – герань, C – крокус, V – фиалка.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Вариант 1
    Код pascal:
     
    program aaa;
    var s:string[3];
    c:char;
    k,i:integer;
    begin
    Writeln('Введите количество дней');
    readln(k);
    s:='GCV';
    for i:=1 to k do
    begin
    c:=s[3];
    s[3]:=s[2];
    s[2]:=c;
     
    c:=s[1];
    s[1]:=s[2];
    s[2]:=c;
    end;
    writeln(s);
    readln;
    end.

    Вариант 2
    Код pascal:
    program aaa;
    var s:string[3];
    k:integer;
    begin
    Writeln('Введите количество дней');
    readln(k);
    s[((k)mod 3)+1]:='G';
    s[((k+1)mod 3)+1]:='C';
    s[((k+2)mod 3)+1]:='V';
    writeln(s);
    readln;
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите пожалуйста (срочно)
    от Nastik1993 в разделе QBasic
    Ответов: 5
    Последнее сообщение: 14.11.2012, 10:51
  2. Очень срочно требуется специалист по настройке карт API Яндекса
    от smartfield в разделе Изготовление сайтов и дизайн
    Ответов: 0
    Последнее сообщение: 26.04.2012, 18:09
  3. Ответов: 0
    Последнее сообщение: 19.03.2012, 12:13
  4. Срочно!!! Помощь по Ассемблеру
    от Doomer_ в разделе Assembler
    Ответов: 5
    Последнее сообщение: 21.12.2011, 04:26
  5. Ответов: 0
    Последнее сообщение: 07.12.2011, 22:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •