Должно быть так:
If a > 0 then a:=3 else a:=4; - лишняя запятая
If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но
выбрать один нельзя, не зная исходной формулы.
Вот варианты:
If k > 0 then writeln ('да') else if k<0 then writeln ('нет');
If k > 0 then writeln ('да') else writeln ('нет')
Ответ:
Объяснение: На компьютерном есть комьпьютер, возможно бумаги
уже было такое.. иногда пользуйтесь поиском чтоль.
1) полностью наполнить 5 литровый бидон
2)из 5 литровой в 3х литровую переливаем масло( в 5 литровой остаётся 2)
3)3х литровую в общую ёмкость
4) из 5 литровой в 3х литровую переливаем оставшиеся 2 литра из 5 литровой
5) доверху наполняем 5 литровую
6) из 5 литровой доверху наполняем 3х литровую
7) из трёхлитровой переливаем всё в бидон, в 5ти литровой осталось 4
пишем бидоны(их кол-во), затем проделываем вот что:
8 5 3
8 0 0
3 5 0
3 2 3
6 2 0
6 0 2
1 5 2
1 4 3
4 4 0
ну то есть разливали масло по каждому бидону, пока не получится результат
или так
1. из 8 в 3 (там останется 5)
2. из 3 в 5
3. из 8 в 3 (там останется 2)
4. из 3 в 5 долить 2 (остается 1)
5. из 5 в 8 (там стало 7)
6. из 3 в 5
7. из 8 в 3 (там стало 4)
8. из 3 в 5 (там тоже стало 4)
Можно так: exp((sin(x)*ln(10))
Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;<span>
End.</span>