1)
Пока б больше а, {
проверить что при делении на два остаток равен 1, {
б присвоить б минус 1,
вывести б }}
2)
пока б миньше а {
общее присвоить б * счетчик
б присвоить б + 1 }
3)
пока счетчик (введенное число) не равно 0 {
счетчик + 1
выполнять (а = 0, а < счетчик, а присвоить а + 1) {
вывести а }}
Удачи. Надеюсь помог.
Var x,y: real;
begin
readln(x);
if x<0 then y:=2*sqr(x)-12*x else
if x>0 then y:=sqr(cos(x));
writeln(y);
end.
1. логика - 3. Наука о формах и способах мышления
2. Высказывание - 9. Повествовательное предложение, вкотором что-либо утверждается или отрицается.
3. Алгебра логики - 8. Наука об операциях над высказываниями
4. Логическая константа - 5. ИСТИНА и ЛОЖЬ
5. Дизъюнкция - 2. Логическое сложение
6. Инверсия - 4. Логическое отрицание
7. Конъюнкция - 7. ^
8. Импликация - 1. А→В
9.Эквивалентность - 6. А ↔ В
Расписание уроков, т.к. оно несет организационную информацию для учителей и учеников.
Нажми там будет объведи и поделись с кем нибудь но это не точно если я не обишаюсь но у меня так