Регистрация
Ghxvbvc13
28.12.2022 22:33
Информатика
Есть ответ 👍

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

251
474
Посмотреть ответы 2

Ответы на вопрос:

Жанел130107
Жанел130107
4,5(62 оценок)
Если программа нужна на паскале и если считать, что числа, кратные и 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 100< > 0)and(a mod 11< > 0) then write(t3,a,' ');   end; close(t); close(t1); close(t2); close(t3); end.
Юшут
Юшут
4,5(1 оценок)
X=13 y=18 так как x не >   y то: y=y-x=18-13=5 x=x-y=13-5=8 ответ: x=5 y=8

Популярно: Информатика