Var
A:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(A);
A:=A mod 12;
Case A of
0,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень')
End
End.
А++-++а ≠ 0 однозначно!
Выражение содержит два инкремента - сначала постфиксный, затем, после знака минус - префиксный. Постфиксный инкремент выполняется ПОСЛЕ выполнения операции, а префиксный - ДО. Поэтому сначала выполнится префиксный ++, который увеличит операнд "а", затем из прежнего значения a, стоящего слева от знака минус, вычтется "новое" значение "а", и затем уже постфиксный инкремент нарастит полученное значение.
Правые корабли уплывают вниз тем временем левые двигаются вперед
Ответ:
Паскаль
Program krug;
var r,d:real;
Begin
writeln ('Введите радиус круга ');
readln(r);
d:=2*r;
write ('Диаметр круга равен ', d);
End.
Объяснение:
Ты сам в компьютере попробуй. Тут это не получится.