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

Невдаха-учень Сашко сів виконувати домашнє завдання і просидів за столом 2 год. З них x хв він чухав потилицю і дивився у вікно,y хв шукав у письмовому столі гумку, щоб стерти у підручнику з англійської мови карикатуру на свого товариша, на малюваня якої він витратив перед цим z хв. Решту часу Сашко переклав англійські слова. Скільки слів він утиг перекласти, якщо переклад одного слова у нього йшло 5 хв іть будь-ласка часу мало) Буду вдячний!

Показать ответ
Ответ:
anastasia738393
anastasia738393
08.05.2020 16:42

Таблица рецептов в БД

Пусть имеется проект в Simple-Scada и мы настроили подключение к СУБД MySQL к нашей базе данных с именем "my_database". Теперь в эту базу данных сохраняются сообщения, тренды проекта и т.д. Мы хотим добавить в БД новую таблицу для хранения рецептов и реализовать редактирование этой таблицы через скаду. Допустим у нас есть три компонента: K1, K2 и K3 и нужно чтобы при выборе рецепта количество каждого компонента считывалось из рецепта и записывалось в соответствующие переменные которые затем будут использованы в тех. процессе. Сначала организуем интерфейс проекта. Достаточно двух страниц.

0,0(0 оценок)
Ответ:
nik868
nik868
22.12.2021 21:45
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота