ответьте на эти во до 15 числа, буду очень блпгодарен.
1. Выберите программу, которая не соответствует синтаксису структуры
Паскаль-программ.
А. Program A; Const d=5; var b,c:real; begin read(b,c); writeln(b*c) end.
B. Program A; var b,c:real; begin readln(b,c); End.
C. Program A; Const d=5; var b,c:real; begin End.
D. Program A; Var b,c; Const d=5; begin b:=2*d End.
E. Program A; begin writeln(‘b=’) end.
2. Укажите программу, в которой есть неописанная переменная.
A. Program A; var b,c:real; Begin readln(b,c); writeln(b-c*c) end.
B. Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until
i C: Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until
i<1 end.
D. Program A; begin writeln(‘b’) end.
E. Program A; var b:real; begin read(b); end.
3. Укажите тип синтаксической ошибки, имеющейся в данной
программе:
Program A; const d=5; var a:real; i:integer; begin a:=0; i:=1; if a write(a) end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверная константа
4. Укажите тип синтаксической ошибки, имеющейся в данной
программе: Program 1A; var b:real; begin read(b); b:=b; end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверный идентификатор
E. Неверная константа
F. Ожидалась;
5. Укажите тип синтаксической ошибки, имеющейся в данной
программе:
Program A; var a1:real; begin read(a1); a1:=a1+0,1; end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверный идентификатор
E. Неверная константа
6. Укажите программу, в которой результат не выдается.
A. Program A; var b:real; begin read(b); writeln(b) end.
B. Program A; var b:real; begin read(b); writeln(b); end.
C. Program A; var b:real; begin b:=1; write(2*b-3) end.
D. Program A; var b,c:real; begin read(b); if b>0 then c:=b else c:=-b end.
E. Program A; var b,c:real; begin read(b,c); b:=b+c; writeln(b) end.
m,mn,m1,m2:set of char;
i,k,l:integer;
begin
writeln('Введите последовательность русских слов:');
readln(s);
m:=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','Л','л','М','м','Н','н','Р','р'];
k:=0;
for i:=1 to length(s) do
if not (s[i] in ['А'..'Я','а'..'я',' ','.']) then k:=k+1;
if k>0 then writeln('Ошибка ввода')
else begin
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
if s[length(s)]='.' then s[length(s)]:=' ';
k:=0; mn:=[]; m1:=m; m2:=m;
for i:=1 to length(s) do
begin
mn:=mn+[s[i]];
if s[i]=' ' then
begin
k:=k+1;
if k mod 2=1 then m1:=m1*mn else m2:=m2*mn;
mn:=[];
end;
end;
mn:=m1-m2;
print(mn);
end;
end.
Пример:
Введите последовательность русских слов:
напечатать в алфавитном порядке звонкие буквы.
{н}
// Внимание! Если программа не работает, обновите версию!
begin
var L:='бвгджзйлмнр'.ToList;
var s:=ReadlnString;
var p:=Pos('.',s);
if p>0 then s:=s[:p];
var aw:=s.ToWords;
var i:=1;
while i<=aw.Length-1 do begin
var L1:=L.ToList;
foreach var c in L1 do
if not aw[i-1].Contains(c) then L.Remove(c)
else
if aw[i].Contains(c) then L.Remove(c);
i+=2
end;
if L.Count>0 then L.Println(',')
else Writeln('Нет звонких согласных, удовлетворяющих условию')
end.
Примеры
бодро шагаем дрова несем друзья товарищи
д
вместе весело шагать по просторам
Нет звонких согласных, удовлетворяющих условию
багряный закат красный восход
й,н,р