На паскале прочитать из файла (input.dat) список имён. в файл (output.dat) перенести только уникальные имена.

243

320

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

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

garua

Информатика

4,7(8 оценок)

Решение в файле. желаю удачи

GenaTurboKrytt

Информатика

4,8(88 оценок)

Var a,b,c,d: integer; beginc: =0; //счетчик положительных чиселd: =0; //счетчик отрицательных чиселa: =0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел'); while a< > 5 do beginreadln(b); if b> =0 then c: =c+1else d: =d+1; a: =a+1; end; writeln('положительных чисел ',c); writeln('отрицательных чисел ', d); end.