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

5. Де можна задати вміст групи елементів управління? ( ) а) У вікні Інспектор об'єктів
б) На вкладці Події
В) У вікні Редактор рядків
г) На вкладці властивості​

👇
Открыть все ответы
Ответ:
ира967
ира967
22.04.2022

У Вас файл должен заканчиваться .html

Проще всего это сделать открыв текстовый блокнот, написать туда Ваш HTML код, нажать свойства -> сохранить как -> Выбрать внизу тип "Все файлы" и после чего в названии файла написать [Названия файла].html

После чего ищите место куда Вы его сохранили. Как найдёте, нажимаете правую кнопку мыши и открыть при После чего выбираете браузер которым Вы пользуетесь.

Если же Вам нужно изменить файл, тогда его открываете не через браузер, а через любой текстовый редактор.

4,4(78 оценок)
Ответ:
ник5024
ник5024
22.04.2022
1)
abs(x*x - 20) / Cos(y) + 5*x*sqrt(y)

2)
t :=1
if r >10then r:=r+1;t:=8;

a)
При r=17 условие выполняется, значит r увеличится на единицу.

Команды не связаны операторными скобками (begin r:=r+1;t:=8; end),
поэтому t:=8; выполнится безусловно.

r=18;  t=8;

б)
При r = 9 условие не выполняется, поэтому значение r останется неизменным.

r = 9;  t = 8;

3)
for i:= - 10 to - 9 do
begin k:=i;write(k);end.

Цикл For не выполнится ни разу. На экран не будет выведено ничего.

Цикл "For i:= A to B do" выполняется B-A+1 раз, при условии, что B>=A.
В нём значение i меняется от A до B, с каждой итерацией прибавляется единица.

Цикл "For i:= A downto B do" выполнится A-B+1 раз, при условии, что A>=B
В нём значение i тоже меняется от A до B, но с каждой итерацией от i отнимается единица.

4)
а)
Var
A:integer;
Begin
Write('Введите сумму покупок: ');ReadLn(A);
if A<5 then Write('Скидка не предоставляется')
else if (A>=5)and(A<10) then Write('Скидка: 0.5%')
     else if (A>=10)and(A<20) then Write('Скидка: 2%')
          else Write('Скидка: 5%')
End.

б)

Var
A,i:integer;
Begin
For i:= 1 to 10 do
Begin
Write('Введите сумму покупок: ');
ReadLn(A);
if A<5 then WriteLn('Скидка не предоставляется')
else if (A>=5)and(A<10) then WriteLn('Скидка: 0.5%')
     else if (A>=10)and(A<20) then WriteLn('Скидка: 2%')
          else WriteLn('Скидка: 5%')
End
End.
4,7(72 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ