Задать вопрос
13 июля, 03:22

Дан текстовый файл с именем input. txt в первой строке которого записано натуральное число N, а во второй строке N целых чисел. Переписать в файл с именем a. dat числа, кратные 100 из исходного файла, а в файл с именем b. bat числа, кратные 11, в файл c. dat все остальные числа

+2
Ответы (1)
  1. 13 июля, 04:24
    0
    Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:

    var t, t1, t2, t3:text; n, a, i:integer;

    begin

    Assign (t,'input. txt') ; reset (t) ;

    Assign (t1,'a. txt') ; rewrite (t1) ;

    Assign (t2,'b. txt') ; rewrite (t2) ;

    Assign (t3,'c. txt') ; rewrite (t3) ;

    readln (t, n) ;

    for i:=1 to n do

    begin

    read (t, a) ;

    if a mod 100 = 0 then write (t1, a,' ') ;

    if a mod 11 = 0 then write (t2, a,' ') ;

    if (a mod 1000) and (a mod 110) then write (t3, a,' ') ;

    end;

    Close (t) ; Close (t1) ; Close (t2) ; Close (t3) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан текстовый файл с именем input. txt в первой строке которого записано натуральное число N, а во второй строке N целых чисел. Переписать ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы