Регистрация
alexey2ristp00z7s
27.12.2021 23:20
Информатика
Есть ответ 👍

Дан файл целых чисел. Сформируйте два выходных файла целых чисел, записывая поочередно числа, образующие возрастающую
последовательность, то в один то в другой файл. Например:
- исходный файл: f1: 2 4 3 8 15 -1 -3 10 1;
- первый файл-результат: f2: 2 4 -1 1;
- второй файл-результат: f3: 3 8 15 -3 10.

232
498
Посмотреть ответы 1

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

Asandyana
Asandyana
4,6(75 оценок)

var a,b,k: integer;

begin

b: =random(10)+1;

writeln('какое число я загадал? ');

k: =3;

repeat

write('у тебя ',k,' попытки(-а). введи число: ');

readln(a);

if a> b then writeln('мое число меньше! ')else

if a< b then writeln('мое число больше! ')else  

if a=b then

begin

writeln('молодец! угадал! ');

k: =0;

end;

k: =k-1

until k< =0;

if k=0 then writeln('проиграл! ');

end.

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