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

1.Яка функція перетворює рядок S в ціле число ? *
IntToStr (Value)
StrToInt (S)
FloatToStr (Value)
StrToFloat (S)
2.var A : Real; B: Integer;В яких операторах правильно організовано введення значень змінних? *
А := StrToFloat(Edit1.Text);
В := StrToInt(Edit1.Text);
А := StrToInt(Edit1.Text);
Edit1.Text := FloatToStr (А);
3.var X, Y: Integer;Чому дорівнює значення Х після виконання послідовності присвоювань: Х := 10; Y := 3*Х; Х := Х + Y; *

4.Для розміщення на формі перемикача потрібно на вкладці Standart двічі клацнути на кнопці... *

TCheckBox
TComboBox
TRadioBox
TRadioButton
5.Яке значення набуває властивість Checked прапорця , якщо прапорець вибрано і позначку прапорця встановлено *
false
true
false або true
жодної
6.Якщо на формі розміщено кілька прапорців, то серед них можна вибрати... *
Один або кілька
тільки один
два
не вибрати жодного
7.Чому дорівнює S після виконання циклу: S := 0; For і := 5 To 7 Do S := S+1; *
4
3
7
5
8.Який загальний вигляд команди циклу з лічильником? *
for <імя змінної>:= <вираз1> to <вираз2> do begin <команди тіла циклу> end;
for <імя змінної>:= <вираз1> to <вираз2> begin <команди тіла циклу> end;
for <імя змінної>:= <вираз1> to <вираз2> do begin <команди тіла циклу> ;
9.Встановіть відповідність між операторами і діями, які вони реалізуютьf := 0; For i := 1 To n Do f := f +і; *
Обчислити суму n перших натуральних чисел
Обчислити факторіал числа n
Обчислити суму n перших парних чисел
Обчислити f = A*n
10.В яких із наведених операторів циклу тіло циклу не виконається жодного разу? *
Х:=10; Whіle Х <= 10 do X := X+1;
Х:=11; Whіle Х <= 10 do X := X+1;
11.Визначте значення S після виконання операторів.X := 0 ; S := 0;Whіle Х<=5 Do begin X := X + 1; S := S + Х; end; *

12.Який алгоритм реалізує програма S := 0; A := 0; n:=0;Whіle n<10 Do begin n:=n+1; A := A+2; S := S+A; end; *
Знайти суму натуральних чисел, кратних 4 і менших або рівних 100
Знайти суму перших десяти непарних чисел
Знайти суму перших десяти парних чисел

Показать ответ
Ответ:
Лилюсечка
Лилюсечка
28.02.2022 09:29

Для  данной сортировки используем алгоритм сортировки слиянием

В начале разбиваем арбузы на 2 группы по 2Каждую группу взвешиваем и сортируем (т.е. всего 2 взвешивания)Теперь собираем вместе, сравниваем сначала более легкие арбузы и находим самый легкий (всего 3 взвешивания)Теперь сравниваем тяжелый арбуз, что в группе с самым легким и более легкий из другой группы, и определяем второй по легкости (всего 4 взвешивания)Потом взвешиваем оставшиеся арбузы и докладываем их  по порядку (всего 5 взвешивания)
0,0(0 оценок)
Ответ:
бекзат2008
бекзат2008
14.06.2021 02:58

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота