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

Продумайте состав, типы полей и ключ однотабличной базы данных регионы рф.

👇
Ответ:
TimuR2112
TimuR2112
13.06.2021
РЕГИОНЫ
id - integer (счетчик, ключ)
название - varchar
главный город - varchar
диапазон индексов - varchar
4,7(68 оценок)
Открыть все ответы
Ответ:
vabik1983
vabik1983
13.06.2021

Здрпвствуйте! Если как человека, то

Объяснение:

Тебе нужно сначала вводить данные так например в pascale это readln.

Обьявлям переменные var

t, f:real;

p,s,v:integer;

Begin начали операцию

readln(t); вводим данные неизвестных переменных, чтобы присвоить значение им.

readln(f);

readln(p);

readln(s);

v:=1/2×t×sqrt(f/p×s); пишем выражение, по которому рассчитываем выражение.

writeln(v); выводим рассчитанное выражение

readkey(); при нажатии любой клавиши закрываем консоль

end. Программа выполнила свою работу и завершилась.

Назначение облеглегчить счет

Рассчитать выражение и получить результат это основная цель

Применяется программа для того чтобы не рассчитывать вручную по приведенному выражению, лишь ввести данные и она сделает это за тебя это применения.

4,5(69 оценок)
Ответ:
Nadezhdakarpov1
Nadezhdakarpov1
13.06.2021
Type
  Digits=array[0..9] of byte;

procedure RD(n:integer; var ad:Digits; var f:boolean);
{ заполняет массив количеством повторений цифр числа n
  f=True, если хоть одна цифра повторяется }
var
  i,d:byte;
begin
  for i:=0 to 9 do ad[i]:=0;
  f:=False;
  while n>0 do begin
    d:=n mod 10;
    ad[d]:=ad[d]+1;
    if ad[d]>1 then f:=True;
    n:=n div 10
    end;
end;

var
  i,j,n,k:integer;
  a:Digits;
  f:boolean;
 
begin
  for i:=1 to 2 do begin
    Write('n = '); Read(n);
    n:=Abs(n); { против ввода отрицательных }
    RD(n,a,f);
    if f then begin
      Write('Встречаются больше одного раза цифры ');
      for j:=0 to 9 do
        if a[j]>1 then Write(j,' ');
      Writeln
      end
    else Writeln('Все цифры в числе уникальны')
    end
end.

Пример
n = 153632
Встречаются больше одного раза цифры 3
n = 1030041
Встречаются больше одного раза цифры 0 1

var
  s,sr:string;
  c:char;
  i,j,n,p:byte;
   
begin
  for i:=1 to 2 do begin
    Write('Введите строку: '); Readln(s);
    n:=Length(s);
    sr:='';
    for j:=1 to n do begin
      c:=s[j];
      if Pos(c,Copy(s,j+1,n-j))>0 then sr:=sr+c+' ';
      end;
    if Length(sr)>0 then Writeln('Встречаются больше одного раза символы ',sr)
    else Writeln('Все символы в строке уникальны')
    end
end.

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