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

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

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

Дополните предложение пожалуйста по Ивт Системы программирования..... Языки программирования....
Дополните предложение пожалуйста по Ивт Системы программирования..... Языки
Cоставить блок-схему и написать программу нахождения площади (S) боковой поверхности куба. Длина (a) стороны куба вводится с клавиатуры.
Cоставить блок-схему и написать программу нахождения площади S боковой поверхности куба. Длина a