Напишите программу пожалуйста Вася у папы силен в математике. Но сейчас папа в...

0 голосов
48 просмотров

Напишите программу пожалуйста
Вася у папы силен в математике. Но сейчас папа в командировке, а Васе срочно нужно найти все решения такого уравнения:
x + y + x∙y = n
Поскольку Вася за долгие годы безделья разучился решать задачи без посторонней помощи, Вам предстоит по заданному целому n (0 ≤n≤ 109) найти количество таких пар целых неотрицательных чисел (x, y), чтобы выполнялось требуемое равенство. Поспешите, не то все узнают страшную правду о Васе.


Информатика (15 баллов) | 48 просмотров
0

Какой язык?

0

Английский

0

много логично

0

а в eclipce как будет ???????

Дан 1 ответ
0 голосов
Правильный ответ

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.

(8.6k баллов)
0

а в eclipce как будет ???????

0

это язык такой?

0

а, это среда. Ну смотря на каком языке