Регистрация
Вика00000011
02.01.2023 02:24
Информатика
Есть ответ 👍

Где взять имя и сетевой адрес?

180
290
Посмотреть ответы 1

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

Flas003
Flas003
4,7(41 оценок)
Var x,y,n,col: integer; begin col: =0; write('число - '); readln(n); for x: =0 to n do begin   for y: =0 to n do begin   if (x+y+x*y=n) then begin writeln(x,' ',y); col: =col+1; end;   end; end; write('количество - ',col); end.

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