В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
03166
03166
22.12.2021 18:46 •  Информатика

Посчитать
math.sin (1) = math.sin (1 + 180)
a % b = a - (a // b) * b
math.cos (1) = math.cos (1 + 2 * math.pi)
a % b = b // a
и указать правдивые выражения

Показать ответ
Ответ:
karachevamaria4
karachevamaria4
11.11.2022 18:13
Завдання №2

var i,j,k,shlth:integer;    
      letter:char;
      name,minword,s1,x,x1:string;    
      f1,f2:text;    
      f:boolean;    
      arr:array [1..100] of string;
label 1;  

begin
writeln('Введіть імя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введіть імя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введіть букву для пошуку:');
readln(letter);
letter:=lowercase(letter);
 j:=1;  

while not eof(f1) do
begin  
readln(f1,x1);  
x:=lowercase(x1);  
i:=1;  
while (i<=length(x)) and (x[i] <> letter) do  
 begin    
  while (i<=length(x)) and (x[i] = ' ') do inc(i);    
  if (i<=length(x)) and (x[i] <> letter) then      
   while (i<=length(x)) and (x[i] <> ' ') do inc(i);  
 end;    
 if i>length(x) then
  begin
   writeln(f2,x1);
   arr[j]:=x1;  
   inc(j);  
  end;
end;  

f:=false;
for k:=1 to j do
begin  
 i:=1;  
 while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
 if i<length(arr[k])+1 then begin f:=true; goto 1; end;
end;  

1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else
begin
 while (arr[k][i]<>' ') and (i<=length(arr[k])) do
  begin
  minword:=minword+arr[k][i];
  inc(i);
  end;  
 for k:=1 to j do
 begin  
  i:=1;  
  while i<=length(arr[k]) do  
   begin   
   while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
   if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
   while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth);  end;
   if shlth<length(minword) then minword:=s1;
   end;
 end;
writeln('Найкоротша слово у файлі f2: ',minword);
end;    
 
close(f1); close(f2);
end.
0,0(0 оценок)
Ответ:
ГрозаТараканов
ГрозаТараканов
15.02.2022 21:03
1. Программное обеспечение - совокупность программ системы обработки информации и программных документов, необходимых для эксплуатации этих программ (определение из ГОСТа).
ПО служит для выполнения определённых задач пользователя, используя ресурсы устройств компьютера.

2. Сообщение указывает, что на диске не обнаружена операционная система.

3. На разных дисках могут быть установлены разные системы. Если бы для переключения надо было бы каждый раз лезть внутрь компьютера, было бы неудобно. Кроме того, один диск может быть резервным, загрузка будет проходить с него, если загрузка с основного диска закончилась неудачно, чтобы провести тестирование системы, провести откат к предыдущим настройкам или установить новую операционную систему.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота