М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

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

👇
Открыть все ответы
Ответ:
milanskab23
milanskab23
26.09.2022
Var s:string;
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.

Пример:
Введите последовательность русских слов:
напечатать в   алфавитном порядке    звонкие буквы.
{н} 
4,7(69 оценок)
Ответ:
1000Умник
1000Умник
26.09.2022
// 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.

Примеры
бодро    шагаем  дрова несем        друзья  товарищи
д

вместе весело    шагать    по   просторам
Нет звонких согласных, удовлетворяющих условию

   багряный   закат красный   восход
й,н,р
4,5(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ