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 // вместо игрек - стоит буква у русская

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

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

Помогите пожалуйста! Нужно создать программирование!
Помогите пожалуйста! Нужно создать программирование!
Помогите быстрее не могу понять
Помогите быстрее не могу понять
Напишите,пожалуйста, командк для подлодки.
Напишите,пожалуйста, командк для подлодки.
Пожалуйста помогитеее!!!!
Пожалуйста помогитеее!!!!