1. вычислить: a) 20 div 6 b) 5 div 3 c) 20 mod 5 d) 6 mod 9 e) sqr(5) f) sqrt(16) g) abs(26) h) abs(-19) 2.какие результаты выполнения выражения неправильны: a) 24/2 = 2 b) 2 div 3 = 1 c) 11 div 5 = 1 d) 6*5 = 30 e) 10 div 3 = 3 f) 11 mod 5 = 1 g) 15 + 21 div 2 = 25 h) 14 mod (5 + 3) = 2 3. записать на алгоритмическом языке следующие выражения: 1) 2) 3) 4. определите значение переменной b после выполнения алгоритма: а : = 6 b : = 4 а : = 2*а + 3*b b : = a/2*b 5. определите значение переменной a после выполнения алгоритма: а : = 4 b : = 2 b : = a/2*b a : = 2*а + 3*b 6. определите значение переменной a после выполнения алгоритма: а : = 5 b : = 4 b : = 100 - a*b a : = b/16*a 7. определите значение переменной a после выполнения алгоритма: а : = 1 b : = 2 + a b : = a + b а : = b/2*2*a - 3 8. определите значение переменной m после выполнения данного алгоритма: k : = 5 m : = 90 k : = m-k*2 m : = k*3-m 1. вычислить: a) 20 div 6 b) 5 div 3 c) 20 mod 5 d) 6 mod 9 e) sqr(5) f) sqrt(16) g) abs(26) h) abs(-19) 2.какие результаты выполнения выражения неправильны: a) 24/2 = 2 b) 2 div 3 = 1 c) 11 div 5 = 1 d) 6*5 = 30 e) 10 div 3 = 3 f) 11 mod 5 = 1 g) 15 + 21 div 2 = 25 h) 14 mod (5 + 3) = 2 3. записать на алгоритмическом языке следующие выражения: 1) 2) 3) 4. определите значение переменной b после выполнения алгоритма: а : = 6 b : = 4 а : = 2*а + 3*b b : = a/2*b 5. определите значение переменной a после выполнения алгоритма: а : = 4 b : = 2 b : = a/2*b a : = 2*а + 3*b 6. определите значение переменной a после выполнения алгоритма: а : = 5 b : = 4 b : = 100 - a*b a : = b/16*a 7. определите значение переменной a после выполнения алгоритма: а : = 1 b : = 2 + a b : = a + b а : = b/2*2*a - 3 8. определите значение переменной m после выполнения данного алгоритма: k : = 5 m : = 90 k : = m-k*2 m : = k*3-m
Ответы
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
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.
Примеры
бодро шагаем дрова несем друзья товарищи
д
вместе весело шагать по просторам
Нет звонких согласных, удовлетворяющих условию
багряный закат красный восход
й,н,р
// Внимание! Если программа не работает, обновите версию!
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.
Примеры
бодро шагаем дрова несем друзья товарищи
д
вместе весело шагать по просторам
Нет звонких согласных, удовлетворяющих условию
багряный закат красный восход
й,н,р
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
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.
Пример:
Введите последовательность русских слов:
напечатать в алфавитном порядке звонкие буквы.
{н}