Эсли win редактор то:
1 открыть программу
2 найти нужные материалы
3 сделать превью
несли надо добавить анимацию
4 вставить аудио файл
5 составить Титов
6 сохранить файл...
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Через поле и лесок
подается голосок
он бежит по проводам--
скажешь здесь
а слышно там
Сначала применяет "НЕ" потом "И".
1. <span>"НЕ (число < 20)" истинно, когда число не меньше 20, то есть больше или равно. Это числа 21 и 36. "Число четное" истинно для 8 и 36. Оба утверждения (</span><span>"И" истинно только в случае если истинны оба (или все) логические утверждения) истинны для числа 36</span>
2. "число < 100" истинно для 23 и 10. "НЕ (число чётное)" истинно для нечетных чисел, это 105 и 23.
<span>Оба утверждения <span>истинны для числа 23</span></span>
если √(x^3)+8
var
x,y:integer;
begin
write('x = ');
readln(x);
write('y = ',sqrt(x*x*x)+8);
end.
если (√x)^3+8
var
x,y:integer;
begin
write('x = ');
readln(x);
write('y = ',sqrt(x)*x+8);
end.