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

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

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

запишите это алгоритмическим языком
запишите это алгоритмическим языком
составить алгоритм из 15 действий (даю 50 баллов)
составить алгоритм из 15 действий даю 50 баллов
составить кроссворд на листе формата А4 по терминам из области информатики (не менее 20 терминов). На втором листе А4 представить ответы. Пожалуйста!
составить кроссворд на листе формата А4 по терминам из области информатики не менее 20 терминов. На