сервис вопросов и ответовПочему Pascal не видит символ ";"?
10-11 класс|
|
Devyatochka
19 апр. 2015 г., 20:52:58 (9 лет назад)
NikitaKaroch
19 апр. 2015 г., 23:05:50 (9 лет назад)
Попробуй так:
var s:string;
A,N,M,X,Y,Z:integer;
begin
write('s:');
readln(s);
A:=1; N:=4;
while (A<15) and (N<15) do
for A:=1 to (N-1) do
begin
X:=StrToInt(s[1]);
Y:=StrToInt(s[2]);
Z:=StrToInt(s[3]);
M:=100*X+10*Y+Z;
A:=A+4;
N:=N+3;
end;
if M<256 then writeln('YES')
else writeln('NO');
end.
Micha1977
19 апр. 2015 г., 23:41:03 (9 лет назад)
не уверена, что правильно, но вот весь код var s:string;
A,M,N,X,Y,Z:integer;
begin
write(s);
readln(s);
A:=1;
N:=4;
while (A<15) and (N<15) do
repeat for A:=A to (N-1) do
begin
X:=StrToInt(s[1]);
Y:=StrToInt(s[2]);
Z:=StrToInt(s[3]);
M:=100*X+10*Y+Z;
A:=A+4;
N:=N+3;
end;
if M<256 then writeln('YES')
else writeln('NO');
end.
ввк
20 апр. 2015 г., 1:06:38 (9 лет назад)
нет, взятие в скобки не помогло
Charice
20 апр. 2015 г., 2:24:35 (9 лет назад)
еще один вопрос возник)) как функцией pos выделить не только первую точку в IP-адресе, но и следующие?
Motylek
20 апр. 2015 г., 4:45:32 (9 лет назад)
Либо уберите repeat, либо допишите until
Gylicka
20 апр. 2015 г., 5:22:24 (9 лет назад)
Скорее всего нужно убрать, зачем вводить два подобных цикла
Ответить
Другие вопросы из категории
Читайте также
почему pascal не может найти файл, пишет что файл не найден, хотя он есть!
вот программа
Program ex1;
var:a,b,sum:integer;
f1,f2:text;
begin
assign(f1, 'input.txt');
assign(f2, 'output.txt');
reset(f1);
read(f1, a,b);
sum:=a+b;
rewrite(f2);
write(f2, sum);
close(f1);
close(f2);
end.
Информатики, помогите! Не работает интернет, и вот такой крестик.
что это значит, и почему он не работает?
как мне это исправить?
Написала код алгоритма в Visual Basic, который правильно считает элементы массива А, В, С и почему то не правильно считает Z по формуле с этими найденными
числами. В чём ошибка? вот код:
Private Sub Command1_Click()
' Описание переменных
Dim N As Single
Dim M(15) As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
' Описание переменных
' Вод исходных данных
N = 0
M(I) = 0
A = 1
B = 0
C = 0
' Ввод исходных данных
' Реализация алгоритма
For I = 1 To 15
N = Int(Text1.Text)
M(I) = Val(InputBox("Ввести элементы"))
Print Str(M(I))
Next I
For I = 1 To 15
If M(I) > 0 And M(I) <> 0 Then
A = A * M(I)
End If
Next I
For I = 15 To 0 Step -1
If I Mod 2 = 0 Then
If M(I) > 0 Then
B = M(I)
I = 0
End If
End If
Next I
For I = 1 To N Step 1
S = S + M(I)
Next I
C = S / N
Z = С + (А + В/ А * В + 1)
' Реализация алгоритма
' Вывод результата
Text2.Text = Str(A)
Text3.Text = Str(B)
Text4.Text = Str(C)
Text5.Text = Str(Z)
' Вывод результата
End Sub
Вы находитесь на странице вопроса "Почему Pascal не видит символ ";"?", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.