Нажимая на кнопку "Задать вопрос", я даю согласие на обработку персональных данных

Задать вопрос
Задать вопрос
  • Написать программу в Паскале решения ребуса Аист*4=стая. Помогите пожалуйста)!

    • 23 December 2012
    • Ответ оставил: Yegor55

    O__o

     

    var
    i, s : Integer;
    begin

    for i := 1000 to 9999 do
    if (i * 4 >= 1000) and (i * 4 <= 9999) then
    begin
    s := i * 4;
    if ((i mod 100) div 10 = ( s div 1000)) then
    if ((i mod 10) = ( s mod 1000) div 100) then
    if ( i div 1000 = (s mod 100) div 10) then
    if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
    if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
    Writeln(i, ' = ', i * 4);
    end;

    Readln;
    end.

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
    На сегодняшний день (11.10.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

    Ответить на вопрос

Последние опубликованные вопросы

Написание исследования по теме "Сематическая классификация английских заимствований в русском языке" в текстовом формате с проверкой на антиплагиат (не менее двух вордовских страниц) Написание исследования по теме "Сематическая классификация английских заимствований в немецком языке" в текстовом формате с проверкой на антиплагиат (не менее одной страницы в Word) 2 к6выу5у4в5ыу3ыцц Задание 2.7 Передайте следующие предложения в Passive Voice, обращая внимание на место предлога. E.g. We often speak about her. — She is often spoken about. 1. Bessie's father gave her a complete s... When and where are you going to have the celebration In your country at what times are the shops generally open? Почему сокращается численность Казахстанских козерогов?​ Why did people stay in their homes as much as possible?                A. The weather was cold B. There were many thievesC. There were police officers​ Use of English/ Task 4. Read and choose. 1. I enjoy to swim/ swimming. 2. I want to eat/ eating. 3. I hate to work/working on Sunday. 4. I want to learn/ learning Spanish. помогить, соч последнее ... B) Write sentences use Past Simple and Past Continuous 1)When/Alice/wake up /it/rain 2) Her/mother/make/breakfast/ when /she/come /home​ Topic 2. Write an article to a newspaper (120-150 words) describing the last Sport Competition where you or your friends participated (in a country or abroad) using Past tenses. Try to mention thes... сүт қоректілердің не жатады ​
*{ message }*