Вопрос Как записать в паскале ↓
- Автор темы GoldNews
- Дата начала
ты бы ещё про Fortran спросил
Тут опечатка в вопросе, из-за чего вопрос расплывчатый. Что именно происходит с x? Просто знак ":=" (двоеточие с равно) - это присвоение, т. е. x присваивается значение от 0 до 50. А если нужно сравнение, то просто равно. Поэтому непонятно: нужно, чтобы x менял свое значение или же просто сравнивался с 0 и 50?
Если менял значение (тогда выражение в вопросе неверно записано), то: for x:=0 to 50 do
Если же x надо сравнить, то: if (x>=0) or (x<=50) then write ('да')
Внимание: >= - это больше или равно, соответственно <= - это меньше или равно. Если нужно было бы строго больше и строго меньше, то просто было бы > или <.
Если менял значение (тогда выражение в вопросе неверно записано), то: for x:=0 to 50 do
Если же x надо сравнить, то: if (x>=0) or (x<=50) then write ('да')
Внимание: >= - это больше или равно, соответственно <= - это меньше или равно. Если нужно было бы строго больше и строго меньше, то просто было бы > или <.
if (x>0) and (x<50) then....
var x: integer;
begin
write('Введите х: '); readln(x);
if x in [0..50] then writeln('Да')
end.
Введите х: 25
Да
begin
write('Введите х: '); readln(x);
if x in [0..50] then writeln('Да')
end.
Введите х: 25
Да
работающего PASCAL у меня нет, есть его потомок DELPHI предназначенный не для обучения балбесов, а для работы вот работоспособная процедура
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 50 do
memo1.Lines.Add(inttostr(i));
end;
записывает чесла в окно с текстом
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 50 do
memo1.Lines.Add(inttostr(i));
end;
записывает чесла в окно с текстом