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

ответьте на вопросы 1.Каким образом прикладные программы взаимодействуют с БД?
2.Чем банк данных отличается от базы данных?
3.Какие компоненты входят в состав банка данных?
4.Что представляет собой трехуровневая архитектура СУБД?
5.В чем особенность уровня внешних моделей?
6.В чем особенность концептуального уровня?
7.В чем особенность физического уровня?
8.Что означает логическая и физическая независимость данных?

👇
Открыть все ответы
Ответ:
azizplay07
azizplay07
13.01.2023
Var
   A,R:real;
   i,L,z:integer;
   S:string;
Begin
Read(S);
L:=Length(S);
i:=1;
R:=0;
While (S[i]in['0'..'9'])and(i<L) do
   Begin
   R:=R*10+StrToInt(S[i]);
   i:=i+1
   End;
While i<L do
   Begin
   Case S[i] of
      '+':z:=0;
      '-':z:=1;
      '*':z:=2;
      '/':z:=3;
   End;
   i:=i+1;
   A:=0;
   While (S[i]in['0'..'9'])and(i<L) do
      Begin
      A:=A*10+StrToInt(S[i]);
      i:=i+1
      End;
   if i=L then A:=A*10+StrToInt(S[L]);
   Case z of
      0:R:=R+A;
      1:R:=R-A;
      2:R:=R*A;
      3:R:=R/A;
   End;
   End;
WriteLn('R = ',R);
End.
4,6(94 оценок)
Ответ:
irkaveerova
irkaveerova
13.01.2023
Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:

Var s:string;   
  i,k:integer;
Begin 
  writeln('Введите строку'); 
  readln(s); 
  k:=0; 
  for i:=1 to length(s) do 
  begin   
    if s[i]=' ' then k:=k+1; 
  end; 
  writeln('Количество слов в предложении = ',k+1);
end.

А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:

var s: string;   
   i, k: integer;
begin 
  k := 0; 
  writeln('Введите строку: '); 
  readln(s); 
  s:= ' ' + s; 
  for i:=1 to length(s)-1 do   
   if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1; 
  writeln(k)
end.
4,4(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ