program diofant; var x, y: Integer; begin WriteLn('Целые решения уравнения 19х + 5y = 100 из диапазона'); WriteLn('l <= x <= 100, 1 <= у <= 100: '); for x := 1 to 100...

Хотите узнать готовый ответ на вопрос program diofant; var x, y: Integer; begin WriteLn('Целые решения уравнения 19х + 5y = 100 из диапазона'); WriteLn('l <= x <= 100, 1 <= у <= 100: '); for x := 1 to 100... и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

Program diofant;
var x, y: Integer;
begin
WriteLn('Целые решения уравнения 19х + 5y = 100 из диапазона');
WriteLn('l <= x <= 100, 1 <= у <= 100: ');
for x := 1 to 100 do
for у := 1 to 100 do
if 19*x + 5*y = 100 then
WriteLn('(x, y) = (', x, ', ', y, ')');
Write('Нажмите ');
ReadLn;
end.
ошибка неизвестное имя y. что делаю не так?

for у := 1 to 100 do // вместо игрек - стоит буква у русская

Комментарий удален

Похожие ответы

Запиши свойства класса объектов грибы . форма . цвет шляпки . съедобность
Запиши свойства класса объектов грибы . форма . цвет шляпки .
определите что будет выведено в результате выполнения следующей программы var n, s:integer; begin n:=0; s:=0; while s<=35 do begin n:=n+1; s:=s+4; end; write (n); end.
определите что будет выведено в результате выполнения следующей программы var n, sinteger begin n0
номер 6, желательно подробно, пожалуйста...
номер 6, желательно подробно, пожалуйста...